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U0 GENEHJ^L PROGRAM INFORMATIOhi 5Eq 0004 

1,1 ABSTRACT 

THE RXU INTERFACE DIAGNOSTIC CONSISTS OF A SERIES OF SELECTABLE 
TESTS THAT MAY BE RUN INDIVIDUALLY, SEQUENCE THROUGH ALL TESTS, 
Op START AT A SELECTED TEST AND RUN THROUGH REMAINING TESTSf IN 
ORDER, THEN GO BACK TO THE SELECTED TEST» 



THESE TESTS CHECK OUT THE BASIC FUNCTIONS OF THE RXU INTERFACE SUCH ksi 
A« DONE FLAG 

B, INTERRUPT LEVEL / ADDRESS 

Cs PROGRAM INITIALIZE 

D« READ STATUS REGISTERS 

FILL / EMPTY BUFFER TRANSFER VERIFICATION 
F, FILL / EMPTY BUFFER WITH DATA PATTERNS 



IT IS NECESSARY TO INSURE THAT THESE FUNCTIONS WORK BEFORE A 
DATA RELIABILITY TEST IS PUN^ 

ANY Errors are reported by the program^ and it is possible to 

LOOP ON THE error OR A PARTICULAR TEST FOR SCOPE TESTING^ 



Ua SYSTEM REQUIREMENTS 

1.2.1 HARDWARE REQUIREMENTS 

THE FOLLOWING EQUIPMENT IS REOUTREDl 

Ag PDP«.ll SERIES COMPUTER WITH MINIMUM OF SK MEMORY 

RXU FLOPPY DISK SYSTEM, INCLUDING A SINGLE OR DUAL DRIVE RX01 
AND A PDP»il INTERFACE CARD CM7846] « 

NOTE! A DISKETTE MUST BE INCLUDED WITH EACH DRIVE TESTED^ 
Cs CONSOLE TELEPRINTER 

1.2.2 SOFTWARE REQUIREMENTS 



NO PREREQUISITE SOFTWARE 



2,0 OPERATIMG IMSTRUCTIONS 



SEQ 0005 



2,0,1 



OUTLIKE OF OPERATING PROCEDURE 



THE STANDARD RUNNING PPOCEDURE FOR THE DIAGNOSTIC C TO RUN ALL 

TESTS ON BOTH DRIVES I^ITH NO OPERATOR I^TKR VENJION VIA THE SWITCH REGISTER) 

IS AS FOLLOWSl 



LOAD THE PBOGPAM INTO ME^lOPY 

U IF IT IS BPING LOADED FROM A DISKETTE 

BEPLACE THE 'M.IBRARY" DISKETTE WITH 
A ^'SCRATCH** DISKETTE. 



HOTEl IF THIS STEP IS FORGOTTEN AND THE PROGRArt 



WAS LOADED VIA RXDP C FLOPPY MONITOR ) ON 
UMIT WITH UNIT SELECTED BY US£R TO 
UNDERGO TESTING THE PROGRAM WILL FAILSAFE 
THE OPERATION AND PROMPT THE USER AS FOLLOv^Sl 
''CAUTION - IF YOU DESIRE TO TEST UNIT 
REPLACE LOAD MEDIUM WITH A SCFATCH DISKETTE 
THEN PRESS CONTINUE" 



CAUTION AGAIN, HOWEVER ^^^^^^m^^^^^^^^^^^^ 

NOTE 1} WHEN PUNNING THIS PROGRAM OM A SMALL 11 ( E,G, /04, 
LSI lif ETC, 3 WHERE THERE IS NO CONSOLE SWITCH 
REGISTER IT IS IMPERATIVE TO REMEMBER THIS SETUP, 

NOTE 2) BEFORE PROCEEDING TO STEP ENSURE THAT THE FOLLO^I?\fG 
MODIFIABLE LOCATIONS CONTAIN THE PARAMETERS YOU REQUIRE 
FOR TESTING, THE FOLLOWING TABLE DESCRIBES EACH LOCATIOM 
WITH RESPECT TO THE DEFAULT PARAMETERS ^HlQH WILL BE USED 
IF LEFT UMMODiriED BY THE USERi 



LOCATION 
1200 
1202 
1204 
1206 



LABEL 
ODI 



FIRST! 
KPXVECl 
RXCSl 



CONTENTS 




015001 

264 
177170 



PROGRAM REACTION 
TRACKS 0#52,53, li4CB) 
SECTORS I THRU 32CB) 
ASSUMES PROPER DEVICE VECTOR 
ASSUMES PROPER DEVICE 
STATUS REGISTER 
(CALCULATES ^RXDB^ 
ADDRESS Fi^ON) 
TESTS BOTH UMITS 
AUTOMATICALLY SEQUENCES 
THRU ALL TESTS 
ASSUMES PROPER DEVICE 
^BR^ LEVEL 



1212 



DTESTPI 







1214 



BRLEVI 



5 



REFERENCE SECTION 2 OF THIS DOCUMENT FOP A MORE THOROUGH DESCRIPTION 
Of EACH OF THESE ITEMS AND HOW TO MODIFY THESE LOCATIONS IF YOU 
DESIRE TO CHANGE THE ABOVE MFJmOWED DEFAULT TESTING PARAMETERS^ 



START THE PPOGFAM AT LOCATION 200 5EQ 000fe 

C, THE PROGRAM WILL TYPE OUT MAINDEC NUMBER, A TEST FAPAmETER OF 

(USE BOTH DRI\;ES AND RUN ALL TESTS), THEN TYPE 
TRACKS TO BE ACCESSED AND SECTOR LIMITS^ 
THE PROGRAM Is NOW RUNNING ALL TESTS IN SEQUENCE^ 

Dg IF THERE ARE NO ERRORS , AT THE END OF THE PASS 

CAPPROX, 50 SECONDS RUN TIME)^ A ''D" WILL BE TYPED 
AND IT WILL CONTINUE ON FOR ANOTHER PASS^ 

E, TO HALT THE TEST AT ANY TIME (AFTER OR BEFORE 
COMPLETION OF A PASS) JUST HALT THE PROCESSOR^ 

F, AFTER COMPLETING A PASS OF THE DIAGNOSTIC^ THE 
RXli RELIABILITY TEST MAY BE RUN, 

THERE ARE TWO TYPES OF ERROR PRINT OUT FORMATS 

i» TESTS PRETEST, I - 17, AND 21 - 23 USE THE 

FORMAT SHOWN IN SECTION 3,1. THE IMPORTANT 

ADDRESS THERE IS THE "ERADR" (ERROR ADDRESS) 

GO TO THE LISTING AT THAT LOCATION TU 

GET MORE INFORMATION ON THE ERROR CONDITION 
2t TEST 20^ AND 24 - 26 USE THE FORMATT SHOWN 

IN SECTION 3,3, IN THIS CASE THE "TEST PC" 

IS THE ADDRESS OF THE TEST BEING RUN i^HEN 

THE ERROR OCCURED^ THEN THE VITAL INFORMATION 

OF THE ERROR IS PRINTED (CONTENTS OF ALL 

REGISTERS^ ADDRESS OF WHERE ON THE DISKETTE 

THE ERROR OCCUREDi AND THE TYPE OF ERROR), 

2,1 LOADING THE PROGRAM 

LOAD THE PROGRAM INTO HEHOrY USING THE STANDARD PROCEDURE FOR 
BINARY PAPER TAPES^ 

MAKE SURE THE TOTAL SYSTE?^ Is READY FOR OPERATION^ THE DISKETTES 
INSERTED PROPERLY, DOORS CLOSED ON DRIVES TO BE TESTED ETC ^ 



2,2 STARTING AODReSSES SEQ 0007 

THE PROGRAM HAS TWO STARTING ADDRESS LOCATIONS AS FOLLOWS! 

2a2,l INITIAL START [LOC,200j 

THIS STARTING ADDRESS TESTS FOp AND SELECTS THE HARDWARE, OR SOFTWARE 
S'^ITCH REGISTER? PRINTS MAINDEC NAME AND REVISION, THE TEST A^D DRIVE 
SELECTION^ AND TRACKS AND SECTORS BEING USED, 

2^2,2 RESTART CLOC,202] 

THIS STARTING ADDRESS DIRECTS THE PROGRAM TO CONTINUE RUNNING USING 
THE DRIVE AND TEST SFLECTlONg SPECIFIED IN THE PREVIOUS INITIAL START« 

2^3 OPERATOR ACTION BEFORE STARTING THE PROGRAM 

283,1 DEVICE ADDRESS SELECTION 

LIKE MOST OPTIONS ON THE PDP-il THE RXll INTERFACE CARD HAS 
JUMpERABLE REGISTER AND VECTOR ADDRESSES, THIS ALLOWS FOR 
DEVICES WITH THE SAME STANDARD ADDRESSES TO BE JUMpERED TO AN 
OTHER ADDRESS SO THEY WILL RUN WITHOUT CONFLICT^ 

THE PROGRAM MUST KNOW WHAT ADDRESSES AgE BEING USED, AS IT IS 
THROUGH THESE REGISTER AND VECTOR ADDRESSES THAT ALL COMMUNICATION 

BETWEEN THE PDP«11 AND THE RXil IS HANDLED^ 

IF THE RXll SYSTEM UNDER TEST IS JUMpERED FOR REGISTER ADDRESSES 
OTHER THAN STANDARD, WHICH IS RXCS s 177170 AND RXDB = 177172 
PLACE IN THE MEMORY LOCATION CALLED "RXCS" CLOC« 1206J ITS 
NEW ADDRESS, THE PROGRAM ASSUMES THE NEXT EVEN ADDpEsS ABOVE THAT 
OF RXCS? WILL BE THE ADDRESS OF RXDB, SO SETTING THAT ADDRESS IS 
NOT NECESSARY, IF THERE IS A NONSTANDARD INTERRUPT VECTOR ADDRESS 
(STANDARD IS LOC, 264} THEN PLACE IN MEMORY LOCATION CALLED 
"KRXVEC" CLOC. 1204J ITS NEW ADDRESS. 

IF EITHER OF THESE LOCATIONS IS LOADED wiTH A WRONG ADDRESS# 
THE PROGRAM WILL GET UNPREDICTABLE ERRORS AND MAY HALT, 

NOTE: THE PROGRAM EXPECTS THAT THE PRIORITY LEVEL JUMPERS ARE SET 
FOR A NORMAL 'BP' LEVEL OF 5 ( CONTENTS OF PROGRAM LOCATION 
'BRLEV; ' IS SET TO 5) . IF THE PRIORITY LEVEL JUMPERS ARE 
SET TO ANY OTHER LEVEL TESTS J & 4 WILL REPORT ERRORS, 
UNLESS PROGRAM LOCATION 'BRLEVj ' HAS BEEN PATCHED TO 
CONTAIN THE RELEVENT 'BR' LEVEL BEFORE EXECUTING THE PROGRAM, 



IF THIS IS BEING TESTED ON A LSI 11, TESTS 3 AND 4 WtLL NOT 
BE RUN AS THE LSI 11 HAS ONLY I LEVEL OF INTERRUPT, 



2t392 N0N-5TANDAR0 DISKETTE ADDRESS SELECTION 



S£Q 0008 



IF IT IS DESIRABLE TO TEST THE DISKETTE BETWEEN TRACK 

AND SECTOR ADDRESS LIMITS OTHER THAN THE PRESELECTED TRACK ADDpESSESi 

AHD/OR MINIMUM (FIRST) AND MAXIMUM (LAST) SECTOR ADDRESSES, 

THIS Is DONE BY THE OPERATOR MAKING CHANGES TO TWO MEMORY LOCATIONS 

BEFORE THE PROGRAM Is STARTED. ONE LOCATION IS CALLED "OD" 

CLOC. 1200] WHICH CONTAINS THE TWO BYTES FOR INNER AND OUTER TRACK 

ADDRESSES, THE OTHER LOCATION Is CALLED "FIRST" AND IT CONTAINS THE 

TWO BYTES FOR THE FIRST AND LAST SECTOR ADDRESSES9 

A« DEFINITIONS 

OD « ADDRESS OF TRACK AT OUTER DIAMETER (MIN. 0) 
ID s ADDRESS OF TRACK AT INNER DIAMETER (MAX, 114) 
FIRST s ADDRESS OF FIRST SECTOR ON A TRACK (MIN« 1) 
LAST s ADDRESS OF LAST SECtOr ON A TRACK (MAX. 32) 

B, LOCATIONS 

TRACKS LOCATION 1200 BITS i4««--8 6----0 

ID OD 

SECTORS LOCATION 1202 BITS i2---«8 4*«-«0 

LAST FIRST 



Cg RESTRICTIONS 

THE VALUE OF ♦'OD" MUST Be LESS THAN OR EQUAL TO THE VALUE OF "ID". 

THE VALUE OF "FIRST" MUST BE LESS THAN OR EQUAL TO THE VALUE OF "LAST** , 

IF THESE LOCATIONS ARE CHANGED TO NEW LIMITS^ THEN THE PROGRAM WJLL 

ACCESS ONLY THOSE ADDRESSES INCLUSIVE OF AND BETWEEN THESE LIMITS, 

THE EXCEPTION fO THIS IS TEST 26 WHICH ALWAYS USES A SPECIAL TRACK SEQUENCE, 

IF THE "OD" LOCATION Is CLEARED Or SET TO ANY ILLEGAL COMBINATION 
OF TRACKS^ THE PROGRAM WILL CLEAR LOCATION "OD", THE TRACK SEQUENCE 
WILL THEN BE TRACKS 0^ 52? 53, AND 114 (OCTAL) ONLY, 

IF THE "FIRST" LOCATION IS CLEARED OR SET TO ANY ILLEGAL COMBINATION 
OF SECTOR AODrESSE LIMITS THEN THE PROGRAM WILL SET "FIRST" TO 
1 AND "LAST" TO 32 (OCTAL) . 



2,3.3 SOFT^'ARE S'^ITCK REGISTER CLOC, 176} 



sm 0009 



FOR THE PDp 11 PROCESSORS THAT DO NOT HAVE A HApDWAHE SWITCH REGISTER 

Or if the operator Mlsms TO SELECT THE SOFTWARE SWITCH REGISTER^ 

B¥ PUTTING khh THE SI^ITCHES UP TO A M^^CTHIS MUST 

BE OOi^E EACH TIME THE PROGPAN IS STARTED AT LOCATION 200f OTHER 

WISE THE PROGRAM WILL USE THE HARO'/^RE SWR,) LOCATION 176 IS ASSIGNED 

AS THE SWITCH REGISTER, BITS SET TO A IN THIS LOCATION 

HA¥E THE SAME FUNCTION AS THE COlRRlSPOMD I MG SWITCH IN THE HARDWARE 

SWITCH REGISTER^ ALL REFERENCES TO THE Swp. ARE INDIRECT AND THE PROGRAM 

ASSIGMS THE CORRECT ADDRESS OF THE S^R AT n^lXTIAL START^^ 

SEE SECTIOM 2g4^2 FOR THE SELECTION OF OPERATING CONDITIONS, 



TO CHANGE THE SOFTWARE S^Rs WHILE THE PROGRAM Is RU^^^HNGi TYPE 

^COWTROL G^, EACH TIME THE SWP^ Is TO BE TESTED THE PROGRAM i^ILL CHECK 

TO SEE IF THE SOFTWARE SWR Is SELECTED, AWD THE PROGRAM IS NOT RUNNING 

IN AUTO MODE OF RXDP/ACTll, IF BOTH CONDITIONS EXIST THEM THE PROGRAM 

CHECKS FOR THE CTRL G IN THE KEYBOARD BUFFER, IF THE CTRL G IS THERE 

THE CONTENTS OF THE SOFTWARE SWR, ARE PRlNfED AMD A »^NEW Is ASKFD 

FOR^ THE OPERATOR MAY NOW TYPE IM THE HE^ SWITCH REGISTER CONTEMTS^r 

fERMIMATED B¥ A CARRIAGE RETURM (CR), OR IF HE DOEsN^T WANT TO CHANGE 

THE SWR, JUST TERMINATE WITH THE (CR), NOTE SEE THE CHARACTER RESTRICTIONS 

BELOW, 

WHEM THE PROGRAM DETECTS THE CCf^) IT WILL REPLACE THE CONTEf^JTS OF THE 
SOFTWARE SWRg^IF A UE^ ONE HAS BEEN TYPED IN^ AND RETURN TO THE FLOlft^' 
OF THE PROGRAM^ 

MOTEl CHARACTER RESTRICTIONS FOR CHAWGIMG THE SOFTWARE S^R* 

if OMLY OCTAL NUMBERS 0-7 ARE ACCEPTED^ ANY OTHER CHARACTER 

TYPED v^ILL BE PRINTED AS A ? AND THE mOLE SwH MUST BE RETYPED, 

2, TO WIPE OUT A ^'NEVy" CONTENTS JUST TYPED IN, TYPE CTRL 

nO^ h HEM CONTENTS CAN BE RETYPED, 

3^ O^LY 6 OCTAL CHARACTERS WILL BE PUT INTO THE SI^R, 

IF MORE THAM 6 CHARACTERS ARE TYPED IH ONLY THE LAST h WILL 
BE PUT INTO THE SWR, 



2,3^4 TEST PARAMETER SELECTION C^DTESTP" LOC , 1212) 



SEQ 0010 



THE DRIVE AND TEST DELECTIOM ?^UST BE MADE BEFORE THE PROGRAM STARTS^ 

LOCATION ^DTESTP« (LOC, 12123 IS WHERE THE BITS ARE SET TO TELL THE 

PROGRAM WHAT DrIVEs ArE WANTED AND WHAT TESTS TO RUN As INDICATED BELOW, 

WHEM THE PROGRAM STARTS IT WILL PRINT OUT THE CONDITIONS UNDER WHICH IT Is RUN^ilNG, 

BIT 15 CI) SELECT DRIVE UNIT 1 
BIT 14 CD SELECT DRIVE UNIT 

NOTEl IF NEITHER OF THE ABOVE BITS ARE SET TO A 1 ^ THEN 

THE PROGRAM EXPECTS BOTH DRIVES TO BE READY FOR OPERATION (pOwER 

ON^ DISKETTES INSERTED^ AND DOORS CLOSED), 



THEN SET THE TEST SELECTION IN BITS 4^3(.2#UAND As FOLLOWSl 



*^DTESTP" BITS 
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TEST 26 
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TESTS 



NOTEIS SELECTION OF TESTS 27 THROUGH 37 WILL CAUSE THE MESSAGE 
^ILLEGAL TEST" TO BE PRINTED, 

N0TE2I WHEN A SPECIFIED TEST IS SELECTED THE PROGRAM WILL START AT 
THAT TEST AND THEN RUN THROUGH ALL THE FOLLOvylNG TESTS UNTIL 
IT C0f4pLETES TEST 2b, INDICATED BY THE FOP TYPE OUT^ 
THEN IT WILL GO BACK TO THE TEST SELECTED AND START THE 
NEXT PASSt C1E« IF TEST 24 IS SELECTED THE PROGRAM iaIILL RN TEST 24^ 
2S^ AND 26^ THEN GO BACK TO TEST 24«) 



AN EXPANDED DEFINITION OF THE TESTS IS IN SECTION 2«5 



293^4*1 PREREQUISITE OF TESTS? 



SEQ 0011 



THE FOLLOWING TESTS MUST BE RUN IN ORDER* AS ONE TEST SETS 
UP FOR THE MEXT TEST, 

TEST 6 BEFORE TESTS 7 AND TEST 10 

TEST 14 BEFORE TEST 15 AND TEST 16 

TEST 16 BEFORE TEST 17 

TEST 21 BEFORE TEST 22 AND TEST 23 

SEE SECTION 2«5 UNDER THE ABOVE TESTS FOR EXPLANATION 
2,4 OPERATOR ACTlOi^J TO PUN THE PROGRAM 

2,4,1 STARTING THE PROGRAM 

DEPENDING UPON THE STARTING AddPESS SELECTED THE PROGRAM WILL DO THE FOLLOWINGi 

SA200 (INITIAL START) 

THE SELECTION OF HARDWARE OR SOFTWARE SWITCH REGISTER Is ^AOE THEN 

THE PROGRAM WILL TYPE ITS IDENTIFICATION NyMBER^THE TEST 

PARAMETERS SELECTED IN LOCATION "DTESTP" ^AND TRACKS 

AND SECTORS BEING TESTED, THE PROGRAM THEN PROCEEDS TO RUN 

UNDER THOSE CONDITIONS, 



SA202 (RESTART) 

THE PROGRAM WILL TYPE OUT THE TEST PARAMETERS SELECTED BY THE PREVIOUS 

INITIAL START^ PRINTS THE DISKETTE ADDRESS LIMlTSi AND STARTS 

RUNNING THE TESTS, THE ONLY OPERATOR ACTION REQUIRED IS TO SET 

THE OPERATING CONDITIONS As DEFINED IN SECTION 2,4«2^ 

AFTER DEPRESSING THE »»LOAD ADRS" SWITCH AND BEFORE DEPRESSING 

THE START SWITCH, 



294^2 OPERATING CONDITIONS 



SEQ 0012 



AFTER THE TEST SELECTION HAS BEEN MADE PRESS THE *'CONT" SWITCH, 
THE PROGRAM Vilhh THEN ASK FOR OPERATING CONDITIONS, SWITCHES 
AND 8 THROUGH 15 ARE USED AS INDICATED BELOW« ONCE THEY ARE 
SET UP AGAIN DEPRESS THE WCONT** SWITCH, THE PROGRAM IS NOW RUNNING 
UNDER THE SELECTED CONDITIONS. 

SW15'SW0 (I) « SELECT SOFTWARE SWITCH REGISTER 

NOTES IF THERE IS A HARDWARE SWITCH REGISTER, AND THE OPERATOR WANTS 
THE SOFTWARE SWITCH REGISTER, PUT ALL SWITCHES Up (i) BEFORE STARTING 
THE PROGRAM AT THE INITIAL START ADDRESS, 

SW15 (1) « HALT ON ERROR 

THE PROGRAM HALTS ON DETECTING AN ERROp, AFTER PRINTING THE 
ERROR MESSAGE. PRESSING "CONT" RESTORES THE NORMAL OPERATION OF 
THE PROGRAM, 

SW14 (1) - HALT AT END OF PASS 

AT "END OF PASS" THE PROGRAM TYPES A BELL THEN AN EOp INDICATOR, 

''D^ MEANS NO ERRORS DURING THE PASS 
MEANS HAD ERRORS DURING THE PASS 

IF SW14 Is SET THE PROGRAM WILL HALT^IF SW14 IS OFF THE PROGRAM 
GOES BACK TO THE TEST SELECTED AND RECYCLES THROUGH TO THE LAST 
TEST, AT WHICH TIME ANOTHER EOp INDICATOR IS PRINTED, 
IF THE PROGRAM HALTS DUE TO SW14 THEN PRESS "CONT»« WILL RESTORE 
THE NORMAL FLOW OF THE PROGRAM, IF IT HALTS AT THE END OF A 
PASS IT WILL TYPE OUT THE NUMBER OF PASSES COMPLETED, 

SW13 CI) - INHIBIT ERROR TYPEOUT 

AT THE DETECTION OF AN ERROr IF SW13 Is SET NO ERROR PRINT OUT WILL OCCUR, 
IF SW13 IS OFF THE ERROR INFORMATION IS PRINTED AS DESCRIBED 
IN SECTION 3,0 ERROR DETECTION 

SW12 CI) - LOOP ON TEST 

AT THE COMPLETION OF A TEST THE PROGRAM CHECKS SW12« IF SET THE 
PROGRAM WILL GO BACK TO THE BEGINNING OF THAT TEST AND RERUN IT, 
THIS PRODUCES A SCOPE LOOP ON A PARTICULAR TEST«THE 
PROGRAM WILL STAY IN THIS TEST UNTIL| 

A, HALT ON END OF TEST SWITCH Is SET 

B, LOOP ON TEST SWITCH IS TURNED OFF 

AT WHICH TIME THE PROGRAM WILL GO ON TO THE NEXT TEST, 

NOTES IF SW12 IS SET AND NO TEST SPECIFIED (0) THE PROGRAM 
WILL LOOP ON TEST 1« 



NOTEi 



SWil CD « LOCK ON EHPOR sm 0013 



IN SOME TESTS ERBOPS CAH OCCUR IH SEVF:rAL PLACES THROUGH 
OUT THE teST^ i^^HEN THE ERROR HAS BEEN REPORTED THE PROGRAM SETS A 
PC FLAG TO INDICATE wHEPE IHE ERROR OCCURED^ IF SWil IS SET THE 
PROGRAM GOES BACK TO THE BEGINNING OF THE TEST RUNNING, AND 
GOES THROUGH THE TEST UMTILl 

A, IT FINDS A DIFFERENT ERROR IN AN EARLIER PART OF THE TEST 
IN WHICH CASE IT WILL LOCK ONTO THAT ERROR^ 

B, IT DETECTS THE PC FLAG INDICATING THIS IS WHERE THE 

ERROR OCCURED, IT THEN GOES BACK TO THE BEGINNING OF THE TEST AGAlN^ 
THIS LOOP ^ILL CONTINUE UNTIL HALT ON ERROR SWITCH IS SET 
OR THE LOCK ON ERROR SWITCH IS TURNED OFF, 

SW10 CU - HALT AT END OF TEST 

WHEN SET IT WILL HALT THE PROGRAM AT THE END OF THE TEST PRESENTLY RUNNING, 

SW 9 - LI^IT DATA ERROR PRINT OUTS 

(0) ^ WHEN OFF ONLY THE FIRST 10 DATA BYTE ERRORS WILL BE 

PRINTED ON A READ CHECK TEST, FOR EACH SECTOR, ANy MORE 
ERRORS WILL BE TABULATED BUT NOT PRINTED, AN ERROR ON A 
DIFFERENT SECTOR WILL ALLOW 10 MORE DATA BYTE ERRORS 
TO BE PRINTED, 

(1) - WHEN SET ALL DATA BYTE ERRORS FOR ALL SECTORS WILL BE 

PRINTED ON AN ERROR^ 

SW 8 CI) - INHIBIT RECALIBRATION 

NO RECAl^IBRATION OF THE DRIVES WILL OCCUR UPON THE 
DETECTION OF A SEEK ERROR IF THIS SWITCH Is SET^ 

SW CD - INHIBIT BELL AT ERROR 

IF SW0 IS OFF THE ERROR ROUTINE WILL RING THE TELEPRINTER 
BELL AT EACH ERROR DETECTED^ WITH SW0 SET NO BELL WILL RING, 

2,5 TEST DEFINITIONS 

2g5a PRETEST - INlTlALIEE [KEYJ PART I 

EACH TIME THE PROGRAM IS STARTED^ BY EITHER STARTING ADDRESS? IT RUNS 
THROUGH A PRETEST^ 

KEY INITIALIZE SHOULD SET THE DONE FLAG BECAUSE ANY INITIALIZATION Or 
THE RX01 MICROPROCESSOR IS AN IMPLIED [READ SECTOR] OF TRACK 1 SECTOR i, 
THEREFORE ANY ERROR, EXCEPT PARITY^THAT MAY OCCUR FROM A NORMAL [READ 
SECTOR] COMMAND MAY OCCUR DURING AN INITIALIZE^ CAUSING THE ERROR FLAG 
TO SETs 

PRETEST INSURES THATi 
Ag DONE IS SET 

ERROR FLAG IS CLEARED 
C» TR FLAG IS CLEARED 

Ds INIT DONE IS SET 



TEST I - RXCS TEST PART I / INTERRUPT TEST PART I 

THE purpose: of this TEST IS TO VERIFY THAT WRITING ALL RXCS WRITABLE BITS TO 
k ARE NOT I^RITTEN TO A U 



SEQ 0014 



THE PROGRAM WRITES THE RXCS s 
MO INTERRUPTS SHOULD OCCUR 

THE RXCS SHOULD REMAIN UNCHANGED = 40 (DONE) 

THE RXDB SHOULD = 

2^5^,3 TEST 2 » INTERRUPT TEST PART II / VECTOR ADDRESS VERIFICATION 

THE PURPOSE OF THIS TEST IS TO VERIFY THAT WRITING THE RXCS INTERRUPT ENABLE 

BIT (BIT 6) TO A I , DOES INDEED WrItE TT TO A THEREFORE BECAUSE DONE IS SET AN 

INTERRUPT SHOULD OCCUR (THE pDp U PRIORITY IS 0) 

2t5«4 TEST 3 - INTERRUPT TEST PART III / PRIORITY LEVEL TEST PART 1 

THE PURPOSE or THIS TEST IS TO VERIFY THE PRIORITY OF THE INTERRUPT 
REQUEST LINE, THE PROGRAM SETS THE PDP-11 PRIORITY TO 4 

AN RX01 INTERRUPT SHOULD OCCUR ON PRIORITY LEVEL 5 

IF NO IMTERRUPT OCCURS THEN THE PRIORITY LEVEL OF THE R^il IS NOT 5, 
BUT MAYBE LEVELS 4^ 3r 2,0R 1 

2»5^5 TEST 4 - INTERRUPT TEST PART IV / PRIORITY TEST PART II 

THE PURPOSE OF THIS TEST IS TO VERIFY THE PRIORITY OF THE 

RXll INTERRUPT REQUEST LINE, THE PROGRAM SETS THE pDp-n PRIORITY TO 5, 

NO INTERRUPT SHOULD OCCUR 

IF AN INTERRUPT DOES OCCUR THEN THE PRIORITY LEVEL OF THE RXll 
Is ^Of LEVEL S^BUT MAYBE LEVEL 6^ OR 7^ 

2.5,6 TEST 5 • INIT [PROGRAMMED] B / READ STATUS 

THE PURPOSE OF THIS TEST IS TO VERIFY THAT SETTING THE RXii 
BIT 14 CAUSES A RX01 PROGRAMMED SUBSYSTEM INITIALIZE 

THE RXCS SHOULD = 40 (DONE) 

THE RXDB SHOULD = 4f OR 104r OR 204? OR 304 
TEST 5 CONT'D ^ RXCS TEST PART 11 / PST 

THE PURPOSE OF THIS TEST IS TO VERIFY THE READ STATUS COMMAND 
(FUNCTION «12) ,f AND THAT DONE BIT IS CLEARED BY THE FUNCTION, 

2,5^7 TEST 6 » FILL SUFFER TRANSFER LENGTH TEST 

THE PURPOSE OF THIS TEST IS TO VERIFY THE TRANSFER LENGTH OF THE 
FUNCTION "FILL BUFFER" OF THE RX01 MICROCONTROLLER 

NOTE. THIS TEST LOADS THE SECTOR BUFFER FOR TEST 7 AND 10, AND MUST 
BE RUN PREVIOUS TO THEM, 



bEQ 0015 

2.5.8 TEST 7 . EMpTY BUFFER TRANSFER LENGTH AND CONTENT VEpIFICAlION pART 1 

THE PURPOSE OF THIS TEST IS TO VERIFY THE TRANSFER LENGTH 
OF THE FU^JCTION "EMPTY BUFFER" AND TO VERIFY THE CONTENTS OF 
THE SECTOR BUFFER. 

2.5.9 TEST 10 • EMPTY BUFFER TRANSFER LENGTH AND CONTENT VERIFICATION PART II 

THE PURPOSE OF THIS TEST IS TO VERIFY THE PREVIOUS EMPTY BUFFER 
TEST DID NOT EMPTY AND DESTROY THE CONTENTS OF THE SECTOR BUFFER, 

2.5.10 TEST U - FILL / EMPTY BUFFER WITH ALL 0^S 

DURING THE EMPTY BUFFER FUNCTION THIS TEST VERIFIES THAT ALL 
0*S ARE IN FACT IN THE SECTOR BUFFER, 

2.5.11 TEST 12 - FILL / EMPTY BUFFER WITH ALL l^S 

DURING THE EMPTY BUFFER FUNCTION THIS TEST VERIFIES THAT ALL 
I'S APE IN FACT IN THE SECTOR BUFFER, 

2.5.12 TEST 13 « DRIVE READY VERIFICATION 

TESTS THAT THE DRIVE READY (RDY) BIT WILL SET FOR ALL SELECTED DRIVES, 
THE RDY BIT WILL BE SET AFTER A READ STATUS FUNCTION DIRECTED TO 
THE SELECTED DRIVE, 

2.5.13 TEST 14 « ERROR FLAG AND B-CODE VERIFICATION PART I 

THE PURPOSE OF THIS TEST IS TO VERIFY THAT TRYING TO READ A 
NON..EXISTANT SECTOR WILL CAUSE AN ERROR AND THE CORRECT ERROR 
CODE WILL BE PUT INTO THE RXDB WHEN THE STATUS B Is READ« 
NOTEf THIS TEST CHECKS FOR PARITY ERROR ON THE READ STATUS B 
FUNCTlOMi THE NEXT TWO TESTS CT15 4. T163 00 NOT, THIS TEST MUST BE RUN 
BEFORE TESTS 15 & 16, 

2.5.14 TEST 15 « ERROR FLAG AND B-CODE VERIFICATION pART II 

THIS TEST VERIFIES THAT TRYING TO WRITE DELETED DATA ON AN 

ILLEGAL SECTOR WILL PRODUCE AN ERROR AND THE CORRECT R«CODE 

IS PRODUCED, THE DELETED DATA BIT SHOULD BE SET AFTER THIS TEST, 

2.5.15 TEST 16 « ERROR FLAG AND B«CODE VERIFICATION PART III 

VERIFIES THAT A WRITE FUNCTION TO A NONEXISTANt SECTOR WILL 
PRODUCE AN ERROR AND THE CORRECT B«CODE IS PRODUCED, THE DELETED 
DATA BIT WILL ALsO BE CLEARED. 

NOTES TEST 16 MUST BE RUN BEFORE TEST 17 AS TEST 16 CLEARS THE 
DELETED DATA BIT AND TEST 17 TESTS THAT IT IS CLEARED, 



295*16 TEST 17 - ILLEGAL TBACK ERROR VERIFICATION 5EQ 00I6 

THIS TEST VERIFIES THAT IF A TRACK ADDRESS LARGER THAN 114(0CTAL) 
Is ACCESSED, AN ERROR CONDITION WILL OCCUR, AND THE B-CODE 
WILL s 40, IT ALSO EXPECTS THE DELETED DATA BIT TO BE CLEARED, 

2,5,17 TEST 20 • SEEK VERIFICATION VIA READ FUNCTION 

THIS TEST DOES A READ FUNCTION ON THE SELECTED TRACKS TESTING 
FOR SEEK ERRORS ON VARIOUS SECTIONS OF THE DISKETTE, 

2959I8 TEST 21 - WRITE TEST 

THE PURPOSE OF THIS TEST IS TO WRITE ALL ONES ON SECTOR 1, TRACK 
1, AND TO VERIFY THAT THE DATA IN THE SECTOR BUFFER IS NOT CHANGED, 
NOtEI THIS TEST MUST BE RUN BEFORE TESTS 22 & 23 As THEY CHECK FOR 
DATA WRITTEN ON TRACK 1 SECTOR 1« 

2e5el9 TEST 22 INITIALIZE IMpLIED REAP 

AFTER PREVIOUSLY WRITING DATA ON TRACK 1 SECTOR l, THIS TEST 
CHANGES THE CONTENTS OF THE SECTOR BUFFER AND DOES A PROGRAMMED 
INITIALIZE, AT THE END OF AN IN IT « ( RECAL » ) THE SECTOR BUFFER 
MUST CONTAIN THE DATA FROM TRACK 1 SECTOR 1, 
NOTEi UNIT MUST BE ON-LINE FOR THIS TEST TO WORK, 

2«5,20 TEST 23 « READ TEST 

THIS TEST VERIFIES THAT A READ FUNCTION DOES INFACT LOAD THE 
SECTOR BUFFER WITH DATA READ FROM THE SELECTED ADDRESS, 

2.5.21 TEST 24 » DATa TRANSFER AND VERIFICATION 

THE PURPOSE OF THIS TEST IS TO WRITE THEN READ AND CHECK DATA 

ON ALL SECTORS OF THE SELECTED TRACKS, THE TEST ALTERNATES BETWEEN 

DRIVES, IF BOTH DRIVES ARE SELECTED, BEFORE CHANGING TRACKS, 

THE DATA PATTERN USED IS A FLOATING PATTERN, 

2.5.22 TEST 25 - DATA VERIFICATION VIA DELETED DATA MODE, 

THIS TEST IS THE SAME AS TEST 24 EXCEPT IT CHECKS FOR DELETED 
DATA INDICATORS AND UsES A DATA PATTERN OF FLOATING 1, 

2»5,23 TEST 26 « HEAD «HOME" TEST 

THIS TEST CHECKS FOR THE "HOME FOUND BEFORE THE DESIRED TRACK 

WAS REACHED" ERROR CODE, THE HEAD IS MOVED OUT 10 TRACKS THEN DECREMENTED 

BACK TO TRACK 0, IT TESTS ALL SELECTED DRIVES, AND USES A DATA 

PATTERN OF RANDOM DATA, 



ERRORS 



PRETEST AND TESTS 1 - 17, AND TESTS 21 - 23 HANDLE ERRORS AS INDICATED 
IN SECTION B.i* FOR THE MOST PART THESE TESTS DO NOT RELY ON AN 
INTERRUPT TO INDICATE THE FUNCTION Is COMPLETED^ WHEREAS THE OTHER 
TESTS (TESTS 20# AND 24 » 26) DO READ^ WRITE AND READ CHECK 
FUNCTIONS OVER THE SELECTED TRACK , SECTORS^ AND DRIVES^ 
THESE REQUIRE THE INTERRUPT SERVICE AMD ERROR DETECTION THAT WAS 
USED IN THE DATA RELIABILITY TEST, THIS IS DESCRIBED IN SECTION 

NOTEl IF LOOP ON ERROR SWITCH IS UP THEN THE PROGRAM V^lhh LOOP ON 
THE SHORTEST SET OF INSTRUCTIONS THAT WILL KEEP IT IN THE FAILING 
LOOp^ OTHERWISE AFTER REPORTING THE ERROR THE PROGRAM WILL CONTINUE 
RUNNING THROUGH THE REMAINING ADDRESSES AND TESTS^ 

ERROR HEADING FOR TESTS 1 ^ 17f AND 21 - 23 PLUS PRETEST, 

THE ERROR HEADING IS AS FOLLOWS! 

ERADR FAST FAPT [BLANK] GOOD BAD 

UNDER EACH COLUMN THE ERROR ROUTINE PRINTS PERTINENT INFORMATION^ 

ERADR s ERROR ADDRESS 

ADDRESS OF THE ERROR TRAP INSTRUCTION wHERE 
THE ERROR WAS DETECTED. 

FAST s FIRST ADDRESS OF SELECTED TEST 

ADDRESS OF THE TEST SELECTED AND RUNNING 

FAPT s FIRST ADDRESS OF PRESENT TEST 

ADDRESS OF THE TEST OR SUBTEST PRESENTLY RUNNING, OR 
ADDRESS OF THE SCOPE LOOP« 

CBLANK] 

ADDITIONAL GENERAL INFORMATION SUPPLIED BY SOME 
TESTS ON AN ERROR, 

GOOD s EXPECTED RESULTS OF THE TEST 

TEST RESULTS OF ^HAT SHOULD HAVE HAPPENED IF 
THERE WAS NO ERROR, 

BAD s ACTUAL TEST RESULTS 

THE DATA THAT WAS PECIEVED FROM THE PX01, 
THAT CAUSED THE ERROR, 



PASS = 



NUMBER OF PASSES MADE UP TO THIS ERROR 



ERROR OUTPUT PER TEST 

THE FOLLOWING ARE THE TYPES OF PRINT OUTS UNDER THE COLUMNS 

£BLANK], GOOD, AND BAD FOR THE VARIOUS TfcSTS# USING THIS ERROR FORMAT, 



TEST 


(SECTION) 


[BLANK] 
(R2) 


GOOD 
(R0) 

mmmm 


BAD 
(Rl) 


PRETEST 


(1) 


N/A 


40 


(RXCS) 


PRETEST 


(2) 


(RXCS) 
INCL,DD BIT 


4 OR 

204 


(RXCS) 

NO DD BIT 


TEST 


I 


(1) 


N/A 


40 


(RXCS) 


TEST 


1 


(2) 


N/A 





(RXCS) 


TEST 


1 


(3) 


(KRXVEC) 


N/A 


N/A 


TEST 


2 


(1) 


(KRXVEC) 


N/A 


N/A 


TEST 


2 


(2) 


(KRXVEC) 


140 


(RXCS) 


TEST 


2 


(3) 


(KRXVEC) 


40 


(RXCS) 


TEST 


2 


(4) 


(KRXVEC) 


40 


(RXCS) 


TEST 


2 


(5) 


(KRXVEC) 


40 


(RXCS) 


TEST 


3 


CD 


(KRXVEC) 


N/A 


N/A 


TEST 


4 


(I) 


(KRXVEC) 


N/A 


N/A 


TEST 


5 


(1) 


N/A 


40 


(RXCS) 


TEST 


5 


(2) 


(RXDB) 

INCL, DD BIT 


4 OR 
204 


(RXDB) 

NO DD BIT 


TEST 


5 


C3) 


N/A 





(RXCS) 


TEST 


5 


(4) 


N/A 


40 


(RXCS) 


TEST 


5 


C5) 


(RXCS) 

xi^iWrJy, uu oil 


200 


(RXCS) 

Vu BIT 


TEST 


6 


CD 


NO, OF XFERS 


N/A 


N/A 


TEST 


7 


CI) 


NO, OF XFERS 


EXPEC, 
DATA 


ACTUAL 

DATA 


TEST 


10 


(I) 


NO, OF XFERS 


EXPEC. 

DATA 


ACTUAL 
DATA 



TEST 1U12 (I) CUSES TEST 6&7 TO KILL / E^PlY BUEFEP3 



TEST 


13 


CI) 


(RXDB) 






200 


(RXDB) 

NO DD BIT 


TEST 


13 


(2) 


(RXDB) 






2c^0 


(RXDB) 

NO DD BIT 


TEST 


14 


(1) 


NO, OF 


TH' 


S 


1(?PK^40 


(RXCS) 


TEST 


14 


(2) 


(RXDB) 









(RXDB) 

NO DD BIT 


TEST 


14 


(3) 


(RXDB) 






40 


(RXCS) 


TEST 


14 


(4) 


H/k 






70 


(RXDB) 
ERROR CODE 


TEST 


15 


CD 


NO, OF 


TR' 


S 


1<30040 


(RXCS) 


TEST 


15 


C2) 


H/k 






100 


(RXDB) 


TEST 


15 


(3) 


N/A 






70 


(RXDB) 
ERROR CODE 


TEST 


16 


(1) 


NO, OF 


TP*' 


S 


100040 


(RXCS) 


TEST 


16 


(2) 


N/A 









(RXDB) 


TEST 


16 


(3) 


N/A 






70 


(RXDB) 
ERROR CODE 


TEST 


17 


(lA) 


(RXDB) 









(RXCS) 


TEST 


17 


(IB) 


N/A 






100040 


(RXCS) 


TEST 


17 


(2) 


N/A 









(RXDB) 


TEST 


17 


(3) 


(RXDB) 






40 


(RXCS) 


TEST 


17 


(4) 


N/A 






40 


(RXDB) 
ERROR CODE 


TEST 


21 


(1) 


(RXES) 
STATUS 


A 




NO, OF 

BYTE 


(RXDB) 
STATUS B 



TEST 21 (2) (USES TEST 7 TO EMpTY BUFFER] 

TEST 22 (USES TEST 6 & 7 TO FILL AND EMPTY BUFFER] 

TEST 23 CUSES TEST 6 & 21 TO FILL AND CHECK BUFFER] 



ERROR HEADING FOR TESTS 20. 24 « 26 



AS PREVIOUSLY STATED THESE TESTS ACCESS ALL THE SELECTED SECTORS* 
TRACKS^ AND DRIVES, AND RELY ON THE INTERRUPT SERVICE ROUTINE 
TO INDICATE THAT A FUNCTION Is COMpLETED OR AN ERROR OCCURED^ ALL 
ERRORS^ i^lTH THE EXCEPTIONS WHERE NOTED, WILL TYPE AS ITS FIRST 
OR SECOND LINE OF THE MESSAGE "ERROR CONDITIONS TEST PC = XXXX 
PASS s X % 

THE TEST PC NUMBER IS THE STARTING ADDRESS OF THE TEST RUNNING, 
AND THE PASS NUMBER Is THE NUMBER OF PASSES MADE Up TO THE ERROR 

ON MOST ERRORS THE PROGRAM WILL TYPE OUT THE CONTENTS OF 
"STATUS A" AND "STATUS B% 

STATUS A Is THE CONTENTS OF THE RXES (ERROR AND STATUS REGISTER) 

AT THE TIME THE ERROR WAS DETECTED, IT SHOWS THE CRC, PAR, ETC, ERRORS 

STATUS B IS THE "DEFINITIVE ERROR CODES" THAT THE RX01 DETECTED^ 

THAT M4Y HAVE CAUSED THE ERROR CONDITION, THESE ERROR CODES ARE DEFINED 

IN SECTION 3„3,4 

THERE ARE THREE CATEGORIES OF ERROps AS LISTED AND DESCRIBED 
BELOW. 

NO ERROR FLAG ERRORS 

THESE ARE ERRORS THAT CAN OCCUR BUT THE ERROr FLAG IN THE RXCS WILL 
NOT BE SET» 

A, UNEXPECTED OR MISSING DELETED DATA BIT 

THIS ERROR RESULTS WHEN THE PROGRAM EXPECTS AND DOESN'T 

SEE THE DD BIT ("D D MARK MISSING")^ OR DOfcSN^'T EXPECT AND 

FINDS THE DELETED DATA BIT SET ("UNEXPECTED D D MARK")^ 

THE PROGRAM WILL TYPE OUT AT WHAT DISKETTE ADDRESS THIS OCCURED 

THEN CONTINUE TESTING, 

NOTES SEE SECTION 3,3,3 FOR OTHER CAUSES OF THIS ERROR, 

B, DATA NO STATUS ERROR 

THIS ERROR OCCURS DURING A READ CHECK WHEN THE DATA READ 
DOES NOT MATCH THE DATA IN THE MEMORY DATA BUFFER^ 
AND THERE WAS NO CRC ERROR INDICATED, THIS MEANS THAT THE 
DATA WAS PROBABLY READ OFF THE DISKETTE CORRECTLY BUT THE 
TRANSFER BETWEEN THE SECTOR BUFFER AND THE RXDB IN THE RXll 
PRODUCED BAD DATA« 

THE ERROR MESSAGE WILL INCLUDE THE DISKETTE ADDRESS^ "BYTE" 
NUMBER IN THE SECTOR^ THE DATA READ FROM THE SECTOR BUFFER 
«BAD", AND THE EXPECTED DATA FROM THE MEMORY BUFFER "GOOD"« 



BYTE # BAD GOOD 
(THE DATA PATTERNS ARE FORMATTED AS SHOWN) 

(TRACK ADDPESSi BITS 6-0) 

1 (UNIT NUMBER BIT 7) 
(SECTOR ADDRESS BITS 4 «» 0) 

BYTES 2 - 125 CONTAIN THE SELECTED DATA PATTERN, 

126 (THE SUM OE ALL BYTES * 125) 

127 (THE NEGATIVE OF 2 TliMES BYTE 125) 

THE PROGRAM DETECTS A CHECKSUM ERROR BY SUMMING ALL THE 

DATA READ FROM THE SECTOR BUFFER AND COMPARING THAT SUM TO 0, 

AT THE END OF THE DATA ERROR TYPEOUT THE PROGRAM PRINTS IF THE 
CHECKSUM ACCUMULATED WAS "GOOD" OR "BAD"^ IF BYTES OR 1 
HAVE DATA ERRORS THE OPERATOR MUST CHECK THE RESULTS OF THE 
CHECKSUM, IF IT IS ALSO BAD, THEN THERE WAS A TRUE DATA ERROr^ 
IF THE CHECKSUM WAS GOOD* THEN IT MIGHT BE THAT THE HEAD IS 
NOT OVER THE TRACK EXPECTED. AND THERE IS A POSITIONING ERROR, 

IF SWITCH 9 IS DOlvN THEN ONLY 10 DATA ERRORS WILL BE PRINTED? 
AND AT THE END OF THE SECTOR THE "TOTAL READ CHECK ERRORS 
WILL BE TYPED« IF SWITCH 9 IS UP THEN ALL THfc DATA ERRORS FOR 
THAT SECTOR WILL BE TYPED OUT^ 

C, POWER FAILURE 

THE PROGRAM TESTS FOR TWO TYPES OF POWER FAILURE^. TOTAL 

SYSTEM POWER LOSS, AND RX1 1 pOWER LOSS RESULTING IN A REC AL I BRAT I ON 

OF THE DRIVES^ 

THE TOTAL SYSTEM POWER FAILURE IS DETECTED BY "SYSMAC" 
SUBROUTINE ",$POWEH'% WHEN THE POWER IS DETECTED TO BE GOING 
DOWN^ THE REGISTERS ARE SAVED, WHEN THE pOWER COMES BACK UP 
THE REGISTERS ARE RESTORED AND THE MESSAGE "POWER" IS PRINTED, 
THE PROGRAM THEN RESTARTS^ 

LOSS OF POWER IN THE RXU CAUSES A REC ALIBPATION OF ALL DRIVES, 

WHEN THIS HAPPENS THE "INIT DONE" BIT IS SET IN THE RXES 

REGISTER ALONG WITH THE NORMAL DONE FLAG, AT EACH INTERRUPT 

THE PROGRAM TESTS FOR THE INIT DONE BIT« IF IT IS FOUND SET, THE FUNCTION 

WAS NOT COMPLETED AND A POWER LOSS MUST HAVE BEEN DETECTED^ 

WHEN THIS HAPPENS THE PROGRAM TYPES OUT "RXll POWER" AND 

RESTARTS^ 

THE ERROR HEADING IS NOT TYPED ON THIS ERROR, 



D, U^JKMOv^N INTERRUPT SEQ 0022 

IF AN INTERRUPT OCCURS THROUGH THE RXU INTERRUPT Ve:CTOR ApDRtSS 

AND NONE OF THE STATUS BITS ARE SET (DONE^ EPROR^ ETC « ) 

THE PROGRAM WILL TYPE "UNKNOWN INTERRUPT** AND RETURN 0ACK TO 

THE PROGRAM TO CONTINUE THE FUNCTION, 

THE ERROR HEADING IS NOT PRINTED^ 

E, NO INTERRUPT AT DONE 

THE PROGRAM EXPECTS AN INTERRUPT AT DONE ON THE FUNCTIONS 
OF THESE TESTS, IF AN INTERRUPT DOES NOT OCCUR AT DONE TIME 
THEN THE PROGRAM WILL TYPE OUT "NO INTERRUPT AT DONE ERROR" 
THEN GO INTO THE INTERRUPT SERVICE ROUTINE AS IF AN INTERRUPT 
DID OCCURg AT THIS POINT OTHER ERRORS MAY BE PRINTED IF ANY 
ARE DETECTED^ 

3»392 ERROR FLAG ERRORS 

THESE ERRORS ^RE DETECTED AS THE RESULTS OF THE ERROR BIT BEING SET 
IM THE RXCS AT AN INTERRUPT^ 

A« PARITY ERROR 

A PARITY ERROp RESULTS FROM kH INCORRECT TRANSFER OF A COMMAND 
WORD FROM THE RXU INTERFACE TO THE PX01 MICrO-PROCESSOR 
CONTROLLER^ THE PROGRAM WILL TYPE OUT THE CONTENTS OF THE 
COMMAND STATUS REGISTER CRXCS) SHOWING THE FUNCTION THAT 
FAILEDj, THE ADDRESS OF THE ERROR, CONTENTS OF STATUS A (RXES) 
WITH THE PARITY BIT SET^ CONTENTS OF STATUS B (RXDB) WITH THE 
DEFINITIVE ERROR CODE OF 210 SET, THEN A "rEAD^ WRlTE^ FILL BUFFER 
OR EMPTY BUFFER PARITY ERROR" WILL BE PRINTED* 
IF A PARITY ERROR OCCURS ON A "READ DEFINITIVE ERROR CODE" 
FUNCTION, THEN THE CONTENTS OF THE RXCS AND "PARITY ERROR" 
WILL BE TYPED OUT« 

B, CRC ERRORS 

ON ALL DATA TRANSFERS BETWEEN THE SECTOR BUFFER AND THE 
DIsJ^ETTE, a CrC WORD Is GENERATED AND CHECKED, IF AN ErrOr 
IS DETECTED BY THE MICR0»PPOCESS0P IN THIS CRC WORD THEN 
A CRC ERROR IS GENERATED, 

THE PROGRAM AGAIN TYPES OUT THE CONTENTS OF THE REGISTERS 
(RXCS CONTAINS FUNCTION^ STATUS A WITH "CRC ERR" BIT SET^ 
STATUS B WITH AN ERROR CODE OF 200) « THEN IF IT IS A READ ONLY 
FUNCTION, OR A READ CHECK FUNCTION AND THERE WERE DATA ERRORS 
IT WILL TYPE OUT "DATA CRC ERRORS" THEN PRINT THE BAD BYTES 
IF ANY, IF IT WAS A READ CHECK FUNCTION AND THERE WERE NO 
DATA ERRORS IT WILL PRINT "CRC ERROR NO DATA ERROR" , 



C, SEEK ERRORS StQ 0023 

AWY ERROR THAT PRODUCES k DEFINITTVt: ERROR CODE BUT DOES f^OT 
SET 4N ERROR BIT IN STATUS A (RXOB AT t^O 0¥ FU^^CT10^v.) 
Is LABELED A SEEK ERROR. SEE SECTION 3,3,4 FOR ERROR CODES 
AND MEANINGS. 

THE SAME INFORMATION IS PRINTED FOh THESE ERRORS AS IN PARITY. 
OR CRC ERRORS, EXCEPT IT STATES THAT IT IS A "WRITE OP READ 
SEEK ERROR" ^ 

IF Si«IITCH 8 IS DOWN THEN AT EACH SEEK ERROR FOUND THE PROGRAM 

DOES AN INITIALIZE OF THE RX01 SO IT WILL RECALIBRATE TO 

A KNOWN (HOME) POSITION, THE PROGRAM THEN GOES ON TO THE NEXT 

SECTOR OR TRACK ANU CONTINUES TESTING^ IF THE LOOp ON ERROR 

SWITCH Is OFF, (SEE SECTION 3«3,3 t OR ERRORS CAUSED BY PREVIOUS 

ERRORS,} IF THE LOOP ON ERROR SWITCH IS UP IT ^Ihh PETPY 

THE FUNCTION AT THE SAME ADDRESS, 

IF SWITCH 8 Is UP THEN NO "INITXALIEE" IS DONE AND THE PROGRAM 
LOOKS AT THE OTHER SWITCHES FOR OPERATING CONDITIONS^ 
SEEK ERRORS ALSO PRINT THE TRACK ADDRESS THAT THE HEAD MOVED 
FROM AT THE TIME OF THE ERROR, 

Dg ERROR FLAG ERROR 

IF THE ERROR FLAG IS NOT SET IN THE PXCS AND AN ERROR BIT 
Is SET IN STATUS A OR AN FRHOR CODE IS SET IN STATUS B THEN 
THERE WAS AN ERROR BUT THE ERROR FLAG WAS NOT SET« THE MESSAGE 
"ERROR FLAG EPP0R»' IS PRINTED THEN THE PROGRAM CONTINUES TO 
TYPE OUT THE TYPE OF ERROR. 

3«3,3 ERRORS RESULTING FROM PREVIOUS ERRORS 

IF THERE Is A "WRITE SEEK ERROR" THE PROGRAM WILL GO ON TO THE NEXT 
ADDRESS WITHOUT WRITING ON THE ADDRESS WHERE THE ERROR 
OCCURED9 (UNLESS THE LOOP ON ERROR SWITCH 11 IS UP 

AND THE SEEK ERROR Is RECOVERED.) IF THE WRITE FUNCTION is FOLLOWED 
BY A READ CHECK FUNCTION AND THE READ DOES NOT HAVE A SEEK ERROR 
AT THE SAME ADDRESS. THEN THERE MAY BE DATA ERRORS, OR UNEXPECTED 
Or MISSING DELETED DATA BIT ERRORS RESULTING FROM NO DATA BEING 
WRITTEN ON THAT ADDRESS BY THE PREVIOUS WRITE FUNCTION, 



3,3,4 



DEFINITIVE ERROR CODES 



5EQ 0024 



THE RX01 MICRO«PROCESSOR HAS DEFINED THE ERROR CODES AND MEANINGS 
WHICH ARE AVAILABLE TO THE PROGRA^^ BY ISSUING COMMAND #7 
^READ DEFINITIVE ERROR CODE" 

THE FOLLOWING ARE THE CODES Al^D THEIR MEANIMGS 

10 «- DRIVE FAILED TO SEE HOME FROM INITIALIZE 

20 «■ DRIVE 1 FAILED TO SEE HOME FROM INITIALIZE 

30 • HOME FOUND WHEN STEPPING OUT 10 TRACKS FOR INIT, 

40 * TRIED TO ACCESS A TRACK GREATER THEN 76 

50 • HOME FOUND BEFORE DESIRED TRACK WAS REACHED 

60 • SELF DIAGNOSTIC ERROR 

70 - DESIRED SECTOR NOT FOUND AFTER SAMpLING 52 HEADERS 
100 • WRITE PROTECT ERROR 

110 • MORE THEN 40 US AND NO SEP CLOCK DETECTED 
120 - A PREAMBLE COULD NOT BE FOUND 
130 • PREAMBLE FOUND BUT NO ID MARK FOUND IN TIME 
140 - CRC ERROR ON A HEADER, NO ERROR FLAG 

150 - GOOD HEADER (NO CRC ERROR) BUT TRACK COMPARE ERROR 
160 • ID ADDRESS MARK NOT FOUND IN TIME 
170 - DATA MARK NOT FOUND IN TIME 
200 » DATA CRC ERROR 
210 * PARITY ERRORS 



IF THERE IS NO RESPONSE FROM THE RXll WHILE WAITING FOR THE 
TRANSFER REQUEST (TR) FLAG OR THE DONE FLAG, THE 

PROGRAM WILL TYPE "DEVICE TEST HUNG P PC" (ONLY IF SW13 IS OFF) 
AND THEN GO ON TO THE NEXT TEST/ Or THE BEGINNING OF THE PRESENT 
TEST, 



THE ONLY HALTS IN THE PROGRAM ARE THE SELECTABLE HALTS (EOp.EOT, 

AT ERROR), THE ILLEGAL VECTOR HALTS, AND THE ILLEGAL TEST SELECTION HALT. 



note: one ADDITIONAL 'HALT' EXISTS IN THE PROGRAM. 

IT OCCURS WHEN THE USER HAS LOADED HIS PROGRAM 
VIA THE 'RXDP' MONITOR (ON UNIT 0) AND ALSO 
REQUIRES TESTING OF UNIT 0, A PROMPT MESSAGE 
Is TYPED REMINDING THE USER TO REPLACE HIS LOAD 
MEDIUM WITH A SCRATCH DISKETTE BEFORE GOING ON, 
THE PROGRAM WILL WAIT FOR THE 'CONTINUE' SWITCH 
TO BE DEPRESSED^ 



3.4 



PROGRAM HUNG 



4,0 



HALTS 



5«0 
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e 

9 
10 

1 I .TITLE MAlNDEC-n-DZPXB-E 

12 j#COPYRIGHT (C) MARCH 21,1976 

13 >#DIGITAL EQUIPMENT CORP, 

14 j*MAYNARD, MASS. 01754 

15 }* 

16 |«PR0GRAM BY 0, ADAMS/B. BURGESS 
17 

18 |*THIS PROGRAM WAS ASSEMBLED USING THE pDP-11 MAiNDEC SYSMAC 

19 |»PACKAGE (MAINDEC-11-DEC1AC-C0) ,MAR 21 , 1976. 

20 j» 

21 000001 $TN=l 

22 160000 SSi^Rsl60000 nHALT ON ERROR, LOOP ON TEST, INHIBIT ERROR TYPOUT 
23 

24 
25 

26 {COPYRIGHT CO 1975,1976 

27 jTHIS SOFTWARE IS FURNISHED UNDER LICENCE FOR USE ONLY 

28 jON A SINGLE COMPUTER SYSTEM AND MAY BE COpIED ONLY WITH 

29 {THE INCLUSION OF THE ABOVE COPyRIGHT NOTICE, THIS 

30 JSOFTWARE, Or ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED 

31 JOR OTHERWISE MADE AVAILABLE TQ ANY OTHER PERSON 

32 , EXCEPT FOR USE ON SUCH SYSTEM, AND TO ONE WHO AGREES TO 

33 jTHESE LICENCE TERMS. TITLE TP OWNERSHIP OF THE 

34 JSOFTWARE SHALL AT ALL TIMES REMAIN IN DEC. 
35 

36 jTHE INFOMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE 

37 IWITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT 

38 jBY DIGITAL EQUIPMENT CORPORATION, 
39 

40 ;DEC ASSUMES NO RESPONSIBILITY FOR THE UsE OR RELIABILITY 

41 jOF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 
42 



MAINDEC-l l-DZRXB-E MACYU 27(732) lb-MAR-76 15555 PAGE 2 SEO 0027 

DZPXBE.Pl 1 

43 

44 jMODIFIED TO REV. D BY B, BURGESS NOV, 10, 1975 AS FOLLOWSj 

45 ; 

46 jA) ADDED CAPABILITY OF VARIABLE DEVICE 'BR' LEVEL. ALL RELEVANT TESTS 

47 > CALCULATE 'CPU' LEVEL BASED ON CURRENT CONTENTS OF LOCATION 'BRLEVj', 

48 J DEFAULT 'BR' LEVEL, FOR THE DEVICE, SET BY THE PROGRAM IS 5. ANY OTHER 

49 J 'BR' LEVEL ( E.G. 6 ) WOULD HAVE TO BE PATCHED INTO LOCATION 'BRLEVS' 

50 ; BEFORE RUNNING THE PROGRAM, 

51 > 

52 |B) ADDED TWO (2) ROUTINES TO HANDLE 'UNEXPECTED' BUS TIMEOUT AND 

53 ; RESERVED INSTRUCTION TRAPS ( TRAPS TO VECTORS 4 &. 10, RESPECTIVELY), 

54 } BOTH ROUTINES WILL INDICATE WHICH TRAP OCCURRED, THF 'PC LOCATION 

55 I OF WHERE THE TRAP OCCURRED, AND ATTEMPT TO RESTART THE PROGRAM, 

56 ; 

57 ,'C) ADDED CODE TU FAILSAFE UNIT UNDERGOING TESTING IF PROGRAM ^hS 

58 J LOADED VIA UNIT USING 'RXDp' MONITOR AND USER STARTED RUNNING 

59 ; THE PROGRAM WITHOUT HAVING REPLACED HIS LOAD MEDIUM WITH A 'SCRATCH' 

60 ; DISKETTE, 

61 ; 

62 ?D) ADDED MESSAGES TO INDICATE TO USER WHEN HE HAS SELECTED TRACK AND/OR 

63 } SECTOR LIMITS 'OUT OF RANGE' AND CORRESPONDING DEFAULT LIMITS WHEN 

64 ; THIS CONDITION ARISES 
65 

66 jE) MODIFIED TESTS 1 THRU 4 TO CORRECTLY PRINT OUT THE CONTENTS OF 

67 J 'KRXVEC ( LOCATION HOLDING THE DEVICE VECTOR) AS 264 INSTEAD OF 270, 

68 > 

69 jF) MODIFIED TEST 2 TO HANDLE A 'LOCKED IN INTERRUPT STATE' CONDITION 

70 ; ARISING WHEN 'INTERRUPT ENABLE' AND 'DONE' ARE BOTH QUALIFIED AND 

71 > THE 'REQUEST INTERRUPT' FLOp NEVER GETS CLEARED, 

72 J 

73 JG) ADDED EXTENSIVE MAINTENANCE INFORMATION BASED ON FAULT INSERTION 

74 J RESULTS. INFORMATION IS KEYED TO THE 'ERROR' REPORT WITHIN A 

75 ; TEST, INFORMATION PROVIDED SHOULD BE SELF-EXPLANATORY BUT SHOULD 

76 t NOT BE MISCONSTRUED AS BEING ALL ENCOMPASSING DUE TO HUMAN ERRORS 

77 ) IN STATISTICS GATHERING, INABILITY TO FAULT INSERT SOME CHIPS, AS 

78 > WELL AS ONLY TWO (23 MODULES ABLE TO BE FAULT INSERTED I.E. - 

79 ; M7846 (UNlBUS INTERFACE) AND M7727 (READ/WRITE CONTROL), 

80 } 

81 |H) ADDED FLOW CHARTS 

82 ; 
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83 










84 

85 




.SBTTL 


BASIC DEFINITIONS 


86 




f*INIHAL ADDRESS 


OF THE STACK POINTER *»« 1200 »»« 


87 


001 200 


STACKS 


1200 




88 




.EQUIV 


EMT, ERROR 


IJBASIC DEFINITION OF ERROp 


89 
90 




.EQUIV 


lOT, SCOPE 


jjBASiC DEFINITION OF SCOPE 


91 




;*MISCELLANEOUS DEFINITIONS 


92 


00001 I 


HT= 


11 


jjCODE FOR HORIZONTAL TAB 


93 


00001 2 


LFs 


12 


; jCODE FOR LINE FEED 


94 


000015 


CPs 


15 


nCODE FOR CARRIAGE RETURN 


95 


000200 


CRLFs 


200 


nCODE FOR CARRIAGE RETURN- 


96 


177776 


PS= 


177776 


nPROCESSOR STATUS i^ORD 


97 




.EQUIV 


PSfPSW 




98 


177774 


STKLMTs 


177774 


f jSTACK LIMIT REGISTER 


99 


177772 


PiRQa 


177772 


nPROGRAM INTERRUPT REQUEST 


100 


177570 


DSWP = 


177570 


JIHARDWARE S^^ITCH REGISTER 


101 


177570 


DDISps 


177570 


nHAPDWARE DISPLAY REGISTER 


102 










103 




>»GENERAL PURPOSE 


REGISTER DEFINITIONS 


104 


000000 


R0 = 


%0 


> {GENERAL REGISTER 


105 


000001 


Hl = 


%1 


n GENERAL REGISTER 


106 


000002 


R2 = 


%2 


nGENERAL REGISTER 


107 


000003 


R3 = 


%3 


f {GENERAL REGISTER 


108 


000004 


H4 = 


%4 


J {GENERAL REGISTER 


109 


000005 


P5 = 


%5 


{ {GENERAL REGISTER 


110 


000006 


R6 = 


%6 


{ {GENERAL REGISTER 


111 


000007 


R7b 


%7 


{ {GENERAL REGISTER 


112 




.EQUIV 


R6,SP 


{{STACK POINTER 


1 1 3 




.EQUIV 


R7,PC 


{ {PROGRAM COUNTER 


114 










115 




;*priority level 


DEFINITIONS 


116 


000000 


PR0S 





{ {PRIORITY LEVEL 


117 


000040 


PR1 = 


40 


{{PRIORITY LEVEL 1 


1 1 8 


000100 


PR2 = 


100 


{{PRIORITY LEVEL 2 


119 


000140 


PR3 = 


140 


{{PRIORITY LEVEL 3 


120 


000200 


PR4 = 


200 


{ {PRIORITY LEVEL 4 


121 


000240 


PP5 = 


240 


{ {PRIORITY LEVEL 5 


122 


000300 


PR6 = 


300 


{{PRIORITY LEVEL 6 


123 


000340 


PR7 = 


340 


{{PRIORITY LEVEL 7 


124 










1 25 




;*"SWITCH REGISTER" SWITCH DEFINITIONS 


126 


100000 


SW! 5 = 


100000 




127 


040000 


SW14 = 


40000 




128 


020000 


Swi 3 = 


20000 




129 


010000 


SW12S 


1 0000 




1 30 


004000 


SW11 = 


4000 




131 


002000 


Srtl0 = 


2000 




132 


001000 


SW09 = 


1000 




133 


000400 


SW08 = 


400 




134 


000200 


SW07 = 


200 




135 


000100 


SW06 = 


100 




136 


k)00040 


SW05 = 


40 




137 


000020 


SW04 = 


20 




138 


000010 


SW0 3S: 


10 
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139 


000004 


SW02 = 


4 






140 


000002 


SW01S 


2 






141 


000001 


SW00S 


1 






142 




.EQUIV 


SW09, 


SW9 




143 




.EQUIV 


SW0R, 


s^n 




144 




.EQUIV 


SWfc7, 


SW7 




145 




.EQUIV 


SW06, 


SW6 




146 




.EQUIV 


SWt,5, 


SW5 




147 




.EOUl V 


SW04# 


SW4 




148 




.EQUIV 


SW03, 


SW3 




149 




.EQUIV 


SW02i 


SW2 




150 




.EQUIV 


SW01 , 


SWI 




151 




.EQUIV 


SW00, 


SW0 




152 












153 




{*DATA 


BIT DEFINITIONS 


(BIT00 TO BIT15) 


154 


100000 


BIT15= 


100000 




155 


040000 


BIT14= 


40000 






156 


020000 


BIT13= 


20000 






157 


010000 


BIT12= 


10000 






158 


004000 


BIT11= 


4000 






159 


002000 


B1T10S 


2000 






160 


001000 


BIT09X 


1000 






161 


000400 


BIT08= 


400 






162 


000200 


BIT07S 


200 






163 


000100 


B1T06X 


100 






164 


000040 


BIT05= 


40 






165 


000020 


BIT04= 


20 






166 


000010 


BIT03= 


10 






167 


000004 


BIT02= 


4 






168 


000002 


BIT01S 


2 






169 


000001 


BIT00S 


I 






170 




, EQUIV 


BIT09 


»BIT9 




171 




.EQUIV 


BIT08 


#BIT8 




172 




.EQUIV 


BIT07 


,BIT7 




173 




.EQUIV 


BIT06 


,BIT6 




174 




.EQUlV 


BIT05 


tBin 




175 




.EQUIV 


BIT04 


,BIT4 




176 




.EQUIV 


BIT03 


,BIT3 




177 




.EQUIV 


BIT02 


iBIT2 




178 




.EQUIV 


BIT01 


»BIT1 




179 




.EQUIV 


BIT00 


,BIT0 




180 
181 




{»BASIC 


"CPU" 


TRAP VECTOR ADDRESSES 


182 


000004 


ERBVECs 


4 




{{TIME OUT AND OTHER ERRORS 


183 


000010 


RESVECs 


10 




{{RESERVED AND ILLEGAL INSTRUCTIONS 


184 


000014 


TBITVEC 


= 14 




{{"T" BIT 


185 


000014 


TRTVECs 


14 




{{TRACE TRAP 


186 


000014 


BPTVECs 


14 




{{BREAKPOINT TRAP (BPT) 


187 


000020 


lOTVECs 


20 




{{INPUT/OUTPUT TRAP (IDT) »»SCOPE»# 


188 


000024 


PWRVECa 


24 




{ {POWER FAIL 


189 


000030 


EMTVECa 


30 




1 {EMULATOR TRAP (EMT) «*ERROR»» 


190 


000034 


TPAPVEC 


= 34 




{{"TRAP" TRAP 


191 


000060 


TKVECa 


60 




{{TTY KEYBOARD VECTOR 


192 


000064 


TPVECa 


64 




{{TTY PRINTER VECTOR 


193 


000240 


PIRQVECS240 




{{PROGRAM INTERRUPT REQUEST VECTOR 


194 
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iiEQ 0030 



1 0^ 




























jSPECIAL EQUATES 






1 QT 


















1 oa 


















1 QQ 






















oWolo 1 7 






BDEB 


= 17 


J READ B CODE 


201 




000040 






DONEBIT 


= 40 






202 




000 101 






FBIE 


= 101 


J lE+FILL BUFFER 






000 10 3 






EB IE 


= 103 


; lE+EMPT^ 


BUFFER 






oalo 1 lo5 






WRTIE 


= 105 


; lE+WRITE 


SECTOR 


205 




lawB I 7 






HDIE 


= 107 


! lE+READ SECTOR 


206 




000 115 






WTDDIE 


= 115 


; lE+WRITE 


DO SECTOR 


207 




04000 I 






RECAL 


=40001 






20B 




000000 






OPEN 


= 






209 


















210 




000000 






. = 








2 i 1 


000000 


000000 


000000 






.WORD 0,0 






2 1 2 


















213 




000004 






,34 








214 


000004 


006 1 30 






,WOHD 


BUSEPR 


; UNEXPECTED 


TIMEOUT TRAP PC 


? ^ ^ 


000006 


000340 






.WORD 


PR7 


; UNEXPECTED 


TIMEOUT TRAP PS 


216 


00001 


006 15 4 








RESERB 


; UNEXPECTED 


RESERVED INSTRUCTION TRAP PC 


217 


00001 2 


000340 






.WORD 


PR7 


{UNEXPECTED 


RESERVED INSTRUCTION TRAP PS 


21S 


















2 1 9 




000020 






, = 20 








220 


000020 


006476 






XSCOPE 








2 21 


000022 


0003 4i^ 






PB7 








222 


000024 


015116 






s psnrdn 








22 3 


000026 


000 340 






PR7 








224 


0000 30 


006232 






XEkPOR 








225 


000032 


000340 






PR7 








226 


00003 4 


015046 






STRAP 




JADDRESS OF 


TRAP SERVICE 


22 7 


000036 


000 340 






PR7 








228 






















000046 






, = 46 








2 30 


000046 


002452 






LOGICAL 




;ACT 11 EOP 


HOOKS 


2 31 


















2 3 2 


















2 3 3 




000052 






, = 52 








2 34 


000052 


000000 






.WORD 








2 35 


















2 36 




000 17 4 






. = 174 










tiW I It 








DISPREG: 









238 


0001 76 


000000 






SWHEG! 









239 


















240 


















241 




000200 






, = 200 








242 


000200 


000401 








BP IS 






243 


000202 


000402 








BP 2S 






244 


000204 


0001 37 


001232 


IS! 




JMp SA200 


JOpERATOr SELECTED CONDITIONS 


245 


000210 


000137 


001222 


2SI 




JMp SA202 


jRESTART PROGRAM WITH PREVIOUS PAHAMtTERS 


246 


















247 


















248 
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249 .SBTTL TEST SELECTION VIA SWITCH REGISTER 

250 

251 ; ] *♦»***»♦»»»***«•*»»»*«»*»**#«»*»*»*»♦»##»*»»####»#»«»»»»»»#»»«#» 

25 2 ; J 

254 

255 jSET TEST AND DRIVE SELECTION IN " DTESTP " LOCATION 1212 

256 J 

257 } BIT 15 = 1 - UNIT 1 SELECTED 

258 J BIT 14 = 1 - UNIT SELECTED 

259 J BIT 15 K, BIT 14 = - BOTH DRIVES MUST BE READY 

260 I 

261 I BIT 4 - BIT = OCTAL NUMBER OF DESIRED STARTING TEST 

262 J BIT 4 - BIT 0=0 -ALL TESTS WILL BE SEQUENCED THROUGH 
263 

265 5 
266 
267 
268 

269 .SbTTL OPERATIONAL SWITCH REGISTER POSITIONS 

270 

272 J !»*»*»»»»*»»»»»**»»»##»*»»*#»««*##»»#«*»#«#»»»#»»»##»*»»»»#»###» 

273 J } 
274 

275 } SET OPERATING CONDITIONS IN THE SWITCH REGISTER (HARDWARE) 

276 f OR SOFTWARE SWITCH REGISTER LOCATION 176 
277 

278 ; 15 = 1 - HALT ON ERROR 

279 J 14 = 1 - HALT AT END OF PASS 

280 J IJ = 1 - INHIBIT ERROR TYPEOUT 

281 ; 12 = 1 - LOOP ON TEST 

282 ; 11 s I - LOCK ON ERROR 

283 ; 10 = 1 - HALT AT END OF TEST 

284 J 9 = 1 - PRINT ALL DATA ERRORS 

285 I 9=0- PRINT ONLY FIRST 10 DATA ERRORS PER SECTOR 

286 > 8 = 1 - INHIBIT RECAHBRATION ON SEEK ERRORS, 

287 > 

288 J a 1 - INHIBIT <BELL> AT ERROR 
289 

290 ; 15-0 a 1 - SELECT SOFTWARE SWITCH REGISTER 

291 

292 } 

293 n 

294 J 
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295 ,SBTTL BXCS (RX COMMAND STATUS REGISTER) 

296 

297 001200 .aSTACK 

298 

299 001200 000000 ODs >OD/lO s UNLESS SPECIFIC TRACKS SELECTED, 

300 001201 IDsOD+1 

301 001202 015001 riPSTi 015001 j FIRST = i, LAST st 32 

302 001203 LASTsFIRST+l 
303 

304 001204 000264 KRXVECj 264 
305 

306 001206 177170 RXCSl 177170 
307 

308 ; RXCSJ STANDARD DEVICE ADDRESS a 177170 
309 

310 I TOGGLE INTO PROGRAM LOCATION " RXCS " THE RXU DEVICE AddRESS IK NOT = 177170 
311 

312 fKEY; R - READ ONLY BIT 

313 , W « WRITE ONLY BIT 
314 

315 J 15 - R - ERROR 

316 I 14 - W - INITIALIZE 

317 , 13 - 

318 I 12 - 

319 ; 11 - (BITS 13-8) 

320 t 10 - (NOT USED) 

321 i 9 - 

322 ? 8 - 

323 J 7 - R - TRANSFER REQUEST 

324 ; 6 - R/W- INTERRUPT ENABLE 

325 > 5 - R - DONE 

326 > 4 - W - UNIT SELECT 

327 ! 3 - w - FUNCTION 

328 ; 2 - W - FUNCTION 

329 ; 1 - w - FUNCTION 

330 ; - w - GO i 
331 

332 ; FUNCTION 
333 

334 J 3 2 1 
335 

336 ; - - - GO 
337 

338 ! + GO - FILL BUFFER 

339 ; 2 + GO - EMPTY BUFFER 

340 ! 4 + GO - I^RITE SECTOR 

341 J 6 + GO - READ SECTOR 

342 ; 

34 3 ; 12 + GO - READ STATUS " A " 

344 f 14 + GO - WRITE DELETED DATA 

345 ; 16 + GO - READ STATUS " B " (CODES) 
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346 
347 

348 001210 177172 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 001212 000000 
369 

370 001214 000005 

371 

372 

373 

374 

375 

376 

377 001216 177570 

378 001220 177570 
379 

380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 



.SBTTL PXDB (RX DATA BUFFER REGISTER) 
PXDBS 177172 

; RXOBj STANDARD DEVICE ADRESS = 177172 

J THE FOLLOlNiNG BIT IDENTIFICATION REPRESENTS THE STATUS AT THE END OF A FUNCTION 
J (BUT NOT FUNCTION « 16 TO READ SIATUS " B ") DISPLAYED WITHIN THE RX-UATA bUFFER. 

J (A) 7 - SELECTED DRIVE READY 

6 " DELETED DATA 

J 5 - 

. 4 - 

; 3 - WRITE PROTECT ERROR 

J (B) 2 - INITIALIZE DONE 

J I » PARITY ERROR 

f - CRC ERROR 



VISIBLE ONLY IF THE FUNCTION WAS # 12 READ SIATUS " A " 
INIT DONE VISIBLE IF AN INITlZLlAE IKEYJ OP (PROGRAMMED] wAS ISSUED 



I (A) 
I 

; (B) 

DTESTP." 
BRLEV! 5 

jBrlEVi STANDARD PRIORITY INTERRUPT LEVEL = 5 

•TOGGLE INTO PROGRAM LOCATION "BRLEV" THE RXll INTERRUPT PRIORITY 
;LEVEL IF NOT = 5 



SWRj 

DISPLAYI 

» R0 - GOOD 

J Bl - EAC 

} P2 - BLANK 

> P3 - TEST Q 



.WORD DSWR 
.WORD DDISP 

/EXPECTED RESULT OF TEST 
/ACTUAL RESULT OF TEST 
/ 



fWORD "UNITSEL" HAS THE FOLLOWING BIT DEFFINITIOnS 

JBIT15 = I - UNIT 1 SELECTED FOR USE 

JBIT14 3 1 - UNIT 1 IN USE 

»BIT8 = 1 - THIS PASS HAD AN ERROR 

>BIT7 e 1 - UNIT SELECTED FOR USE 

|BIT6 = 1 - UNIT IN USE 

fBIT4 = UNIT SELECTION BIT 
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3£Ci ma 



398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 



001222 
001224 
001230 



001232 
001234 
001242 
001246 
001252 
001256 
001264 
001272 
001274 
001276 
001 300 
001 306 

001 314 
001 320 
001322 
001 330 
001 332 
001334 
001 336 
001 344 
001 344 
001350 
001352 
001 356 
001 362 
001 364 
001 372 
00 1 400 
001 40f, 
001 41 4 
001 420 
001424 
001 430 
001436 
001 440 
001442 
001 446 
001454 
001456 
001 464 
001466 
001474 
001476 
001504 
001510 



005200 
012706 
000447 



005000 
012737 
012706 
104400 
013746 
012737 
022777 
001402 
000423 
022626 
012737 
012737 

005737 
001 006 
023727 
001005 
104404 
000403 
112737 

012637 
000005 
012746 
012746 
000002 
013737 
062737 
012737 
012737 
005037 
005037 
005037 
012737 
005700 
001055 
005037 
032737 
001 004 
052737 
000415 
032737 
001 434 
052737 
005737 
100003 



177570 
001200 
016704 
000004 
001276 
177777 



000004 
177724 



000176 001216 
000174 001220 



000042 

001216 000176 



000001 015044 



000340 
001 36 4 

001206 
000002 
001234 
000765 
002526 
002530 
006756 
177740 



001210 
001210 
012626 
012630 



012724 

140000 001212 



100200 012724 
040000 001212 



000200 012724 
001212 



.SBTTL START AND RESTART ADDRESSES 

f THE STARTING ADDRESS WAS 202 

SA202! INC R0 

MOV SSTACK,SP 
BR RESTART 

; THE STARTING ADDRESS WAS 200 



1$: 
2s: 



.SBTTL 



CLH P0 

MOV #177570, SWR 
MOV »STACK,SP 
TYPE ,MREV 
MOV 4,-(SP) 
MOV «1$,4 
CMp #177777, 0SWR 
BEO 2S 
BR 3S 

CMP CSP)*,(SP)+ 

MOv «SwREG,SwR 

MOV IDISPREG, DISPLAY 

GET VALUE FOp SOFTWARE 



64$: 
65SS 

3s: 

RESTAPT 



TST 

BNE 

CMP 

BNE 

GTSWR 

BR 

MOVB 



a)f42 
64$ 

SWR, »SWREG 
65$ 

65S 

If WSAUTOB 



MOV CSP)+,4 

RESET 

MOV #PR7,-(SP) 
MOV »4S,-CSP) 

PTI 

mov rxcs, rxdb 
Add »2# rxdb 

MOV #001234, RANI 

MOV »000765,RAN2 

CLR CCOUNT 

CLP PASS 

CLR HANGER 

MOV #177740, HANGPL 

TST R0 

BNL XSA202 

CLP UMTSEL 

BIT » 140000,DTESTP 

BNE IS 

BIS #100200, UNITSEL 
BR 2S 

BIT »BIT14,DTESTP 
BEO 3$ 

BIS #200, UNITSEI. 
TST DTESTP 
BPL 2S 



jRESET TO HARDWARE SWR, 

IPRINT THE NAMfc AND REVISION 
JSAVE 'BUSeRR' timeout 'PC' 
>SET UP TIMEOUT VECTOR 
I IS SOFTWARE SWR SELECTED 
jYES, INSERT IT'S ADDRESS 
;BR IF NO TIMEOUT TRAP OCCURS 
J RESTORE THE STACK 

JPOINT TO SOFTWARE SWITCH REGISTER 
jPOINT TO SOFTWARE DISPLAY REG, 
SWITCH REGISTER 
MARE WE RUNNING UNDER XXDP/ACT? 
;|BRANCH IF YES 

; f SOFTWARE SWITCH REG SELECTED? 

jjbRANCH IF NO 

fjGET SOFT-SWR SETTINGS 

;»SFT AUTO-MODE INDICATOR 

jRESET TIMEOUT VECTOR TO 'bUSERR' 
IINITIALIZE THE RXH SYSTEM 



J LOAD THE PSW 
|GET ADDRESS OF RXCS 
;SET UP ADDRESS OF RXDB 
! INITIALIZE CONSTANTS OF 
J RANDOM NUMBER GENERATOR 



J STARTING ADDRESS WAS 202 

J WERE ANY DRIVES SELECTED 

jYES GO SET THEIR BITS 

JNO, BOTH UNITS MUST BE READY 

!WAS UNIT SELECTED 
}N0, MUST BE UNIT 1 
»YES,SET SELECTED BIT 
J WAS UNIT 1 SELECTED 
jNO 
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DZRXBE, 


PI 1 


GET VALUE FOp SOFTWApE 


SWITCH REGISTER 






454 


001512 


052737 


100000 


012724 




BIS »BIT15,UNITSEL 


JYES, SET The SELECTED BIT 


455 


001520 


123727 


000041 


000010 


2S: 


CMPB 41, #10 




?WAS PROGRAM LOADED IN DUMP MODE 


456 
















>VIA XXDp? 


457 


001526 


001022 








B.ME XSA202 




IBRANCH IF NOT 


458 


001530 


005 7 37 


000042 






TST e#42 




JCHECK FOR PXDP OPERATION 


459 


001534 


001410 








BEQ 5S 






460 


001536 


042737 


000200 


012724 




BIC »200,UN1TSEL 




fIN CHAIN MODE, DESELECT UNIT 


461 


001544 


104400 


016173 






TYPE .MUNITl 






462 


001550 


104400 


016203 






TYPE ,MONLY 






463 


001554 


000407 








BR XSA202 




jAND DO NOT HALT 


464 


001556 


104400 


017226 




5S: 


TYPE, D0LOAD 




1 INFORM USER TO REMOVE LOAD MEDIUM 


465 
















JFROM UNIT AND REPLACE WITH 


466 
















jA 'SCRATCH' DISKETTE IF HE 


467 
















JWISHES TO TEST UNIT 


468 


001562 


000000 








HALT 




fWAlT FOR USER RESPONSE 


469 


001564 


000403 








BP XSA202 






470 


001566 


052737 


100000 


012724 


3SJ 


BIS SBIT15,UNITSEL 


fSET SELECTED BIT 


471 


001574 


042737 


100200 


001200 


XSA202: 


BIC #100200, 


OD 


fCLEAR iST TIME BITS FOR BOTH DRIVES 


472 


001602 


104400 


015614 






TYPE, MDTESTP 






473 


001606 


013746 


001212 






MOV DTESTP*- 


(SP) 


JJSAVE DTESTP FOR TYPEOUT 


474 


001612 


104402 








TYFOS 




JlGO TYPE— OCTAL ASCII 


475 


001614 


006 








.BYTE 6 




jlTYPE 6 DIGIT(S) 


476 


001615 


000 








.BYTE 




JJSUPPRESS LEADING ZEROS 


477 


001616 


104400 


016120 






TYPE ,MCRLF 






478 


001622 


005737 


001200 




LIMITS: 


TST OD 






479 


001626 


001005 








BNE TRKLMT 






480 


001630 


005037 


013136 






CLR SEQUEN 






481 


001634 


1044051 


016417 






TYPE ,MLIMTRK 






482 
483 


001640 


000432 








BR SECLMT 






484 










; <3! 


OD <= ID <3 114 






485 


















486 


001642 


123727 


001201 


0001 14 


TPKLMT: 


CMPB ID, #114 






487 


001650 


101021 








BHl IS 






488 


001652 


123737 


001200 


001 201 




CMPB OD,ID 






489 


001660 


101015 








BHI 1$ 






490 


001662 


104400 


016445 






TYPE ,MOD 






491 


001666 


1 13746 


001200 






MOVB OD,-(SP) 






492 


001672 


104402 








TYPOS 






493 


001674 


003 








.BYTE 3 






494 


001675 


000 








.BYTE 






495 


001676 


104400 


016451 






TYPE ,MID 






496 


001702 


113746 


001201 






MOVB ID,-(SP) 






497 


001706 


104402 








TYPOS 






498 


001710 


003 








.BYTE 3 






499 


001711 


000 








.BYTE 






500 


001712 


000405 








BR SECLMT 






501 


001714 


104400 


017053 




ISI 


TYPE, 0D2BIG 




ITYPE MSG, INDICATING ID OR OD 


502 
















fTOO BIG & DEFAULTING TO TRACKS 


503 
















;0, 52, 53, 114 


504 


001720 


005037 


001200 






CLR OD 






505 
506 


001724 


000736 








BR LIMITS 






507 










J 1 <3 


FIRST <s LAST <a 


32 




508 


















509 


001726 


105737 


001202 




SECLMTl 


TSTB FIRST 
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SEO 0036 



5t0 


001732 


001003 








BNE I S 


511 


001734 


112737 


000001 


001 202 




MOVB #1, FIRST 


512 


001742 


123727 


001 203 


000032 


1 S 1 


CMPB LASTj«32 


513 


001 750 


101023 








BHI 2$ 


514 


001752 


123737 


001 202 


001 203 




CMPB FIRST, LAST 


515 


001 760 


101017 








BHI 2$ 


516 


001762 


104400 


016457 




3S ! 


TyPE »MF1PST 


517 


001 766 


113746 


001 202 






MOVB FIRST, -(SP) 


518 


001 772 


104402 








TYPOS 


519 


001 77 4 


003 








BYTE 3 


520 


001 775 


000 








.BYTE 


521 


001776 


104400 


016470 






TYPE ,MLAST 


522 


002002 


113746 


001203 






MOVB LAST,-CSP) 


523 


002006 


104402 








TYPOS 


524 


002010 


003 








.BYTE 3 


525 


00201 1 


000 








.BYTE 


526 


002012 


104400 


016120 






TYPE ,MCBLF 


527 


002016 


000406 








BR PRETEST 


528 


002020 


104400 


017140 




2SI 


TYPE, S2BIG 


529 














530 














531 


002024 


012737 


015001 


001 202 




MOV »15001, FIRST 


532 


002032 


000753 








BR 3S 



jTYPE MSG. INDICATING THAT 
{SECTOR RANGE SELECTED WAS 
{INVALID AND DEFAULTING TO A 
J 1ST SECTOR VALUE OF 1 AND 
;A LAST SECTOR VALUE OF 32 



MAINDEC-1 1-DEPXB-E 

PRETEST 



DZRXBE, 


PI 1 


533 




534 




535 




536 




537 




538 




539 




540 




541 




542 




543 




544 




545 




546 




547 




548 


002034 


549 


002042 


550 


002046 


551 


002050 


552 


002056 


553 


002062 


554 


002066 


555 


002070 


556 


002072 


557 


002100 


558 


002104 


559 




560 




561 




562 


002106 


563 
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.SPTTL PRETEST - INITIALIZE tKEYJ PART I 

"KEY" INITIALIZE SHOULD HAVE [SET] THE DQNE FLAG BECAUSE 

ANY UNIT] OF THE RX01 MICROCONTROLLER Is AN IMPLIED [READ SECTORj 

OF TRACK 1 SECTOR I (FOR SYSTEMS PROGRAMMING BOOTSTRAP APPLICATIONS), 

THEREFOREr ANY ERROR (EXCEPT PARITY) THAT MAY OCCUR FROM A NORMAL 
"READ SECTOR" COMMAND MAY OCCUR HERE CAUSING THE ERROR FLAG TO SET, AND 
DISPLAYING THE ERROR STATUS WITHIN THE TRANSFER REGISTER AT "DONE". 

THE TRANSFER REQUEST FLAG SHOULD BE CLEARED, 

note: SCOPE LOOPING IS NOT OFFERED BgCAUSE THE "INIT" FUNCTION 
WHICH PRODUCED THE ERROR HAS NOT YET BEEN VERIFIED. 



042737 


000400 


012724 


PPETESTI 


BIC 


»BIT8,UNITSEL 




005037 


006472 






CLP 


ERRORS 




000004 








SCOPE 


5 REFRESHES FAST FOR ERROR TYPEOUI 


013737 


006556 


002532 




MOV 


PCSCOPE,FAST 


J FOR ERROR TYPEOUT INFORMATION 


012700 


000040 






MOV 


#40, R0 


; PROGRAM EXPECTS DONE FLAG 


017701 


177120 




3S J 


MOV 


9 RXCS, Rl 


1 ACTUAL CONTENTS OF RXCS 


020100 








CMP 


Rl, R0 




001407 








BEQ 


1$ 


J OK 


062737 


000001 


006756 




ADD 


#1, HANGER 


JWAIT FOR THE INIT. FUNCTION TO 


005537 


006760 






ADC 


HANGPL 


{FINISH BEFORE CALLING IT AN ERROR 


001366 








BNE 


3$ 










; (R0) s 


40 


J (Rl) = ACTUAL RXCS 


(H2) s N/A 



{ RXCS NOT = 40 (DONE) 



I /#\: /#\: /#\ J /#\ J /#\, /#\. /♦s, /#\. /#\, 
>/»\»/»\j/»\j/#\j/*\j/»\i/#\i/#\!/#\i/#\i/#\:/#\j/#\:/*\:/#\:/#\i/#\:/»\t 

>/»\j/»\i/*\j/»\j/<»\j/«\j/*\j/#\}/#\!/#\i/«\j/»\i/*\i/#\!/#\:/»\:/»\j/*\i 

{THE FOLLO*«ING IS A PRESENTATION OF POSSIBLE REASONS AS TO WHY 
{THIS ERROR REPORT WAS GENERATED, THE INFORMATION SHOWN IS 
{BASED ON FAULT INSERTION RESULTS, AND SHOULD PROVIDE LOGICAL 
{AREAS TO CHECK FOR THE RELEVANT FAULT/S, 
I 

I IF THIS ERROR REPORT WAS THE 1ST GIVEN IN A SERIES OF ERRORS 
{ANALYZE THE FOLLOWING AREA/S! 

I 

JM7846 CUNIBUS INTERFACE) 



SIGNAL NAME 



POSSIBLE CHIPS 



{ NOTEi MAKE SURE THE DRIVES ARE CONNECTED CORECTLY,THE 
I DISKETTES INSERTED, AND THE DOORS OF THE SELECTED DRIVES 

{ ABE CLOSED, IF THE THESE CONDITIONS ARE NOT SET THERE 

{ WILL BE AN ERROR AT THIS POINT, 



{B TRANSFER REQUEST STUCK HIGH 



E22 
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DZRXBE.Pll PRETEST - INITIALIZE [KEY] PART I 



SEU 0038 



JDONE 

fRUN(0) H 

jSELECT 015 

IB DONE 

fRUNCl) H 

IRX INIT 

?OUT 

>B INIT 

iBUS -> RXCS 

>8US INTR 

IBUS D02/D04 

IRUN(I) ri 

jlNT ENB(l) H 

JTPANSFER REQUEST 

>INT EN8CU H 

I ---------- 

I ---------- 

JCMD 

»B DONE 

|PUN(0) H 

>OUT 

>RX INIT 
|IN 

fRX RUN 

, ---------- 



J ------- 

JBUS 015 
iDATA 



STUCK LOW 

STUCK LOW 

STUCK LOW 

STUCK LOW 

STUCK HIGH 

STUCK HIGH 

STUCK HIGH 

STUCK HIGH 

STUCK HIGH/LOW 

STUCK HIGH 

STUCK LOW 

STUCK LOW 

STUCK LOW 

STUCK HIGH 

STUCK HIGH 

STHOBE DISABLED 

'A' INPUTS NOT SELECTED 

STUCK LOW 

STUCK HIGH 

STUCK HIGH 

STUCK LOW 

STUCK LOW 

STUCK HIGH 

STUCK LOW 

LOCKED IN 'PRESET' STATE 
NO STROBE SIGNAL 
STUCK LOW 
STUCK HIGH 



E22#E36,E1 
E22 

E18,E34,E17,E40,E11 

E18»E15,El9,E4i 

ElB 

E32 

E23,E4 

E36#E8 

E36,E40 

E38 

E38 

E37 

E37 

El 

El 

El 

El 

E17,E21 
E15 

ms 

E24 

E21,E11 

E21 

E14 

t2 

E3 

E9 

El 1 



J IF THE FAULT CANNOT BE FOyND ON THE IINIBUS INTERFACE MODULE 
•AND/OR THE FAULT IS NOT INHERENT TO THE UNIBUS INTERFACE MODULE 
|M7846 THERE IS A POSSIBILITY OF ITS EXISTENCE ON THE READ/wrITE 
JMODULE M7727, 

note: only APPPOX. 30% of this module lent itself CONDUCIVE TO 

THE FAULT INSERTION PROCESS? ERGO, THE RESOLUTION FOR FAULT 
ANALYSIS OBTAINABLE BY THIS MODULE Is NOT VERY HIGH, 
HOWEVER, ANALYSIS OF THE FOLLOWING ArEA/S, IF THIS ErROR 
REPORT WAS THE 1ST GIVEN IN A SERIES OF ERRORS, SHOULD AT 
LEAST PLACE YOU WITHIN THE RELEVANT AREA ON THE MODULE, 

M7727 (READ/WRITE CONTROL) 



SIGNAL NAME 



SEL TRK 
DK0 TRK 
SEL DK0 
DC LO 
OUT 



REASON 

PIN 15 NOT AT GROUND 

STUCK LOW 

STUCK LOW 

STUCK LOW 

STUCK LOW 

STUCK HIGH 

E18 CLOCK LOCKED HIGH/LOW 
REPLACE E18 
STUCK LOW 

PIN 14 NOT +5V THRU IK 



POSSIBLE CHIPS 

E15 
E15 
E15 
El J 
E13 
El 3 

E14,E18 

E18,E16 
E16 
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'J,K' INPUTS TO E18 LOCKED 

HIGH/LOW 
'J' INPUT TO E16 LOCKED HIGH 



653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 



677 
678 
679 
680 
681 
682 
683 
684 



I /j\»/|\»/|\»/|\*/i\*/!\»/5S*/j\»/j\»/j\*/{\»/!\#/}\»/!\#/}\*/i\#/;\»/j\« 
i/|\»/i\»/jS»/i\«/:\»/!\*/:\»/i\»/:\*/!\»/i\»/i\»/j\»/i\»/s\»/j\»/i\#/j\« 
;/i\*/t\»/i\»/:\»/i\*/:\»/»\»/i\»/:\«/!\»/i\«/{\#/:\»/j\»/:\*/:\»/:\#/j\» 



STATUS A tRXDB) 
7 6 



SEL 

DRIVE 

RDY 



WRITE INIT 
PROTECT [DONE] 



1 

PAH 



666 


0021 10 


012737 


177740 006760 ISi 


MOV #177740, HAnGPL 


667 


002116 


012700 


000204 


MOV #204, P0 


668 


002122 


017702 


177062 


MOV gRXDB#R2 


669 


002126 


010201 




MOV R2,Rl 


670 


002130 


042701 


000100 


BIC #BIT6»R1 


671 


002134 


105737 


012724 


TSTB UNITSEL 


672 


002140 


100404 




BMI 28 


673 


002142 


042701 


000200 


BIC #BIT7»PI 


674 


002146 


042700 


000200 


BIC »BIT7;R0 


675 


002152 


020100 


2St 


CMP Rl, R0 


676 


002154 


001S44 




BEQ PEBEGIN 



I RESET HANG COUNTER 

lEXPECT INIT DONE AND UNIT RDY 



fCLEAR DELETED DATA BIT 
jWAS UNIT SELECTED 



iUnIT WAS NOT SELECTED 
iCLEAR THE DRIVE RDY BITS 



002156 104000 



J (R0) = 4 IF UNIT IS NOT SELECTED, OR 204 IF UNIT IS SELECTED 

J (Rl) = ACTUAL RXDB MINUS DELETED DATA BIT#6 
} (R2) = ACTUAL RXDB 

ERROR > RXDB NQT = 4, OR 204 



i/»\i/»\i/»\:/»\t /#\j/*\:/#Vj/»\j/#\|/«\|/#\|/»\j/#\t/#\,/»\t/#\|/«\,/#\| 
i/#\i/*\t/»\;/*\i/»\i/»\j/#\i/*\i/#\:/»\i/#\i/#\i/#\:/«\i/#\i/#\i/#\,/»\j 
J /»\t/»\i/»\j/»\j/*\i/»\:/#\i/»\j/*\j/»\i/*\i/»\:/*\i/#\t/#\i/»\i/»\:/»\i 

ITHE FOLLOWING IS A PRESENTATION OF POSSIBLE REASONS AS TO WHY 
ITHIS ERROR REPORT WAS GENERATED, THE INFORMATION SHOWN IS 
JBASED ON FAULT INSERTION RESULTS, AND SHOULD PROVIDE LOGICAL 
lAREAS TO CHECK FOR THE RELEVANT FAULT/S, 
I 

I IF THIS ERROR REPORT WAS THE 1ST GIVEN IN A SERIES OF ERRORS 
jANALYZE THE FOLLOWING AREA/Sl 



IM7846 

I 

I 



CUNI8US INTERFACE) 
SIGNAL NAME 



POSSIBLE CHIPS 
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DZBXBE.Pl I PRETEST - INITIALIZE [KEYJ PART I 



SEQ 0040 



I 



J NOTEj MAKE SURE THE DRIVES ARE CONNECTED C0RECTLY#THE 
} DISKETTES INSERTED, AND THE DOORS OF THE SELECTED DRIVES 

I ARE CLOSED, IF THE THESE CONDITIONS ARE NOT SET THERE 

I WILL BE AN ERROR AT THIS POINT, 



IB SHIFT 


STUCK 


LOW/HIGH 




E15 


E19 


E2 


|B DONE 


STUCK 


HIGH 




E15 






|T0 RX01 


STUCK 


LOW/HIGH 




E15 






ILOAO 


STUCK 


HIGH 




E17 


E18 




jSELECT 00 


STUCK 


HIGH 




E17 


E18 




1 SELECT 02 


STUCK 


LOW 




E17 


E18 


E34 


f IN 


STUCK 


LOW 




E17 


E21 




>CMD 


STUCK 


LOW/HIGH 




E21 






>BUS D15 


STUCK 


HIGH 




E40 






JRX INIT 


STUCK 


HIGH 




E32 






JBUS D00 -> D03 


STUCK 


HIGH 




E41 


E7 




IDATA 


STUCK 


LOW 




E18 


Ell 






INCORRECT SHIFT 


OUTPUTS 


E5 








CAN'T 


SELECT 'B 


INPUTS 


El 








CAN'T 


RESET 




E3 






fB INIT 


STUCK 


LOW 




E34 


EB 




|RX BUSY 


STUCK 


LOW 




E34 


E22 


E19 


)B DONE 


STUCK 


LOW 




E19 






)BUS D05 


STUCK 


LOW 




E4 






»B SER DATA 


STUCK 


LOW/HIGH 




E9 






|INT ENBCl) H 


STUCK 


HIGH 




E37 







I IF THE FAULT CANNOT BE FOUND ON THE UNIBUS INTERFACE MODULE 
jAno/OR The fault is not inherent to the UNIBUS interface MODULE 
jM7846 THERE IS A POSSIBILITY OF ITS EXISTENCE ON THE, rEAD/wRITE 
jMODULE H7727 , 

> NOTES ONLY APPROX, 30% OF THIS MODULE LENT ITSELF CONDUCIVE TO 

I THE FAULT INSERTION PROCESS? ERGO, THE RESOLUTION FOR FAULT 

I ANALYSIS OBTAINABLE BY THIS MODULE IS NOT VERY HIGH, 

I HOWEVER, ANALYSIS OF THE FOLLOWING AhEA/S# IF THIS ERROR 

J REPORT WAS THE 1ST GIVEN IN A SERIES OF ERRORS, SHOULD AT 

I LEAST PLACE YOU WITHIN THE RELEVANT AREA ON THE MODULE, 

IM7727 (READ/WRITE CONTROL) 

J SIGNAL NAME REASON POSSIBLE CHIPS 

>SEL WT PPOT STUCK LOW E4,E6,E15 

l/i\«/i\»/j\»/j\*/:\*/i\*/:\»/i\»/«\»/s\*/j\*/j\»/:S»/j\*/{\*/i\»/j\»/!\* 
i/j\*/|\*/j\»/sN*/sN*/|\*/j\»/j\»/|\*/!\«/!\»/|\*/iN»/|\»/:\«/t\*/:\»/;\* 
>/i\»/:\*/:\»/:\»/:\«/j\*/;\#/;\»/j\*/s\*/:\»/j\#/j\»/i\*/:\#/;\*/:\»/:\* 

754 002160 000542 BP REBEGIN 

755 002162 004737 002556 MORETESTS! JSR PC» LOCKUP 

756 002166 005723 TPNOtHERE: TST CP3)+ jADJUST p3 FOR NEXT TEST ADDRESS 
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6fc0 0041 



757 
758 
759 
760 
761 
762 
763 
764 
765 
766 
767 
768 
769 
770 
771 
772 
773 
774 
775 
776 
777 
778 
779 
780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
790 
791 
792 
793 
794 
795 
796 
797 



0021 70 
002176 
002204 
002210 
002214 
002222 
002230 
002234 
002242 
002250 
002254 
002262 
002270 



016337 
01 3737 
012706 
0001 73 
002166 
003262 
004010 
004140 
004272 
004750 
005462 
005750 
006062 



002214 006556 
006556 002532 
001 200 
002214 

002620 002740 
003420 003564 
004142 

004226 004216 
004416 004610 
005216 

005506 005672 
006016 006050 
002274 



FiRSTTESTi MQV TESTS(R3)# 
MOV PCSCOPE,FAST 
MOV SSTACK,SP 
JMP &TESTS(R3) 
T0NOTHERE, Tl, T2 



PCSCOPE 



) EQUIVALENT TO " SCOPE " 

jSAVE THE FIRST ADDRESS OF THE TEST 



TESTSJ 



T3, T4, T5, T6, T7 
T10# TU, T12» T13# T14# T15, Tl6, T17 
T20» 121, T22f T23» T24, T25, T26, NQMORETESTS 

J TEST 1 - RXCS TEST PART 1 / INTERRUPT TEST PART I 

I TEST 2 - INTERRUPT TEST PART II / VECTOR ADDRESS VERIFICATION 

; # TEST 3 - INTERRUPT TEST PART III / PRIORITY LEVEL VERIFICATION PART 1 

; » TEST 4 - INTERRUPT TEST PART IV / PRIORITY VERIFICATION PART 11 

1 TEST 5 - INIT [PROGRAMMED] / RST 

I TEST 6 - FILL BUFFER TRANSFER LENGTH VERIFICATION 

; TEST 7 - EMPTY BUFFER TRANSFER LENGTH AND CONTENT VERIFICATION PART 1 

> TEST 10 - EMPTY BUFFER TRANSFER LENGTH AND CONTENT VERIFICATION FART II 
I TEST U - FILL/EMPTY BUFFER ALL 0'S 

I TEST 12 - FILL/EMPTY BUFFER ALL I'S 

> TEST 13 « DRIVE READY VERIFICATION FOR SELECTED DRIVES 

; TEST 14 « ERROR FLAG AND B «• CODE VERIFICATION PART I 

I TEST 15 - ERROR FLAG AND B - CODE VERIFICATION PART II 
f /DELETED DATA BIT SETS 



798 


JTEST 


16 




ERROR FLAG AND B - CODE VERIFICATION PART III 


799 


1 




/DELETED DATA BIT CLEARS 


800 










801 


?TEST 


17 




ILLEGAL TRACK ERROR AND B •« CODE VERIFICATION 


802 










803 


J TEST 


20 




SEEK VERIFICATION VIA READ FUNCTION 


804 










805 


I TEST 


21 




WRITE TEST 


806 










807 
808 


ITEST 


22 




INITIALIZE IMPLIED READ 


809 


ITEST 


23 




READ TEST 


810 










811 


?TEST 


24 




DATA TRANSFER & VERIFICATION 
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813 JTEST 25 « DATA TRANSFER & VERIFICATION VIA DELETED DATA MODE 

814 

815 JTEST 26 - HEAD "HOME" TEST 

816 

817 jTHERE ARE NO MORE TESTS 

818 

819 ; » NOTEJ ON PROCESSORS WITHOUT HARDWARE PROCESSOR STATUS WORDS (FSW) 

820 , THESE TEST WILL NOT BE RUN, 
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821 
822 
823 
824 
825 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 
847 
848 
849 
850 
851 
852 
853 
854 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 
865 
866 
867 
868 
869 
870 
871 
872 
873 
874 
875 
876 



002274 
002302 
002306 
002314 
002316 
002324 
002330 
002332 
002336 
002342 
002350 
002352 
002356 
002362 
002366 
002372 
002374 
002 376 
002404 
002406 
002412 
002416 
002424 
002430 
002432 
002434 
002440 
002442 
002446 
002450 
002452 
002454 
002456 



002462 

002466 
002474 
002500 
002504 
002S10 
002512 
002514 

002516 
002522 



042777 
005037 
032737 
001 403 
012737 
005737 
001002 
104400 
005 2 37 
022737 
001002 
005037 
104400 
104400 
005237 
102775 
104405 
032777 
001413 
104400 
104400 
013737 
004537 



000100 
006756 
000400 

000055 
002526 

016120 
002526 
000 U0 

002526 
002534 



005237 
001375 
013705 
001405 
000005 
004715 
000240 
000240 
000240 
000137 

042737 
013703 
042703 
020327 
103002 
006303 
000625 



176704 
012724 
002534 



040000 176612 

016120 
006725 

002530 002430 
015600 



006756 
000042 



000400 012724 
001212 
177740 
000027 



002536 
001232 



?PH1NT AN fcND OF PASS INDICATOR 

J C - RX11/PX01 TEST PASS OK 

I D - RX11/RX01 AND DRIVE TESTING OK 

} - - AN ERROR OCCURRED (DURING C OR D) 

J NOTE! IF BIT 8 OF UNITSEL IS A 1 

; THEN AN ERROR HAS OCCURRED FOR THIS PASS 



NOMORETESTSs BIC 

CLH HANGER 

BIT »BIT8, UNITSEL 

BEQ 1$ 

MOV MX 
ISl TST CCOUNT 

BNE 3S 

TYPE, MCRLF 
3S: INC CCOUNT 

CMP #72, # CCOUNT 

BNE 48 

CLR CCOUNT 
4Sl TYPE, MX 

TYPE iMABELL 
2S! INC PASS 

BVS 2S 

CKSWR 

BIT »SW14,0SWR 
BEQ 6$ 
TYPE , MCRLF 
TYPE ,MPASS 
MOV PASS, 5$ 
JSP R5,SGLDEC 
5S! OPEN 
HALT 

bSl INC HANGER 

BNE 6$ 
MOV »#42,R5 
BEQ HERE 
RESET 

LOGICAL! JSR PC,(R5) 
NOP 
NOP 
NOP 

HERE! JMP REBEGIN 

PEBEGIN! 8IC #BIT8, UNITSEL 
MOV DTESTP, R3 
BIC #177740, R3 
CMP R3,»27 
BHIS 1$ 
ASL R3 

BR riRSTTEST 



!»B1T6,9RXCS jClEAR 'IE' BIT BEFORE NEXT PASS 

;»C" OR "0« MEANS ERRORLESS PASS, 
; " - « MEANS UN-ERRORLESS PASS 



f AC SW 14 s 1 TO HALT AT END OF PASS 



JWAIT FOR EOP INDICATOR TO BE PRINTED 
I ACT 11 END OF PASS HOOKS 



jCLEAR HARD ERROR INDICATOR 
! R3 CONTAINS fCST # TO 26 



l$l 



TYPE ,MILTST 

JMP SA300 
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SEQ 0044 



877 


002526 


000000 






CCOUNTI 





878 


002530 


000000 






PASSI 





879 


002532 


000000 






FASTI 





880 
881 


002534 


000103 






MXl 


.ASCIZ «C" 


882 














883 


002536 


046U1 


042514 


040507 


MILTSTJ 


.ASCIZ "ILLEGAL 


884 


002544 


020U4 


042524 


052123 






885 


002552 


005015 


000 








886 














887 




002556 








.EVEN 



MAINDEC 


-1 1 -nzpxB 




MACYll 27(732) 


16-MAR-76 15:55 PAGE 20 




DZPX8E, 


PI 1 


PRETEST 


- INITIALIZE [Kfcn PART J 




889 








; DATA SW 10 = 1 TO HALT AT END OF TEST 




890 












891 


002556 


104405 




LOCKUPl CKSWR 




892 


002560 


032 7 77 


002000 176430 


RII «SW10,PSWP 




893 


002566 


001 401 




BEQ IS 




894 


002570 


W00000 




HALT 




895 












896 








; DATA S»^ 12 = 1 TO LOCK SCOPE LOOP ON TEST 


OK OR NOT 


897 












898 


002572 


032777 


010000 176416 


is: BIT #SW12»0SWR 


}iS LOOP ON TEST SWITCH SET 


899 


002600 


001403 




BEQ 2$ 


J IF NOT SET GO ON TO NEXT Tfc ST 


900 


002602 


062716 


000002 


ADD «2#0SP 


>1F SET RETURN TO FIHSTTEST 


901 


002606 


000207 




RTS PC 




902 


002610 


042737 


040100 012724 


2$! BIC !(40100,UNITSEL 


jCLEAR UNIT USED HITS 


903 


002616 


1100207 




RTS PC 
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904 










.SBTTL TEST 1 - RXCS TEST 


PART 


I / INTERRUPT TEST PART I 


905 
















906 








J THE 


PURPOSE OF THIS TEST IS TO 


VERIFY 


THAT WRITING ALL RXCS WRITABLE BITS TO A 


907 
908 








F ARE 


[NOT] WRITTEN TO A 1 






909 








; THE 


PROGRAM WRITES THE RXCS = 






910 
















911 








;N0 INTERRUPTS SHOULD OCCUR 






912 
















913 








|THE 


RXCS SHOULD REMAIN UNCHANGED 


= 40 


(DONE) 


914 
















915 








JTHE 


RXDB SHOULD = 






916 
















917 


002620 


005077 


176362 


Tl 5 


ClR ? RXCS 




t WRITING RXCS TO 0, ALSO WHITES RXDB s 


918 


002624 


012700 


000040 




HOV #40, R0 






919 


002630 


017701 


176352 




MOV 9 RXCS, Rl 






920 


002634 


020001 






CMP R0, PI 






921 


002636 


001401 






BEQ IS 






922 
















923 








; (R0) a 40 ) (Rl) = ACTUAL RXCS 


1 CR2) 


= N/A 


924 
















925 


002640 


104000 






ERROR 




J RXCS NOT = 40 (DONE) 


926 

















J /»\l/»\t/*\l/»\!/»Vs/*\j/»\|/*\:/»\s/»\5/»\}/*\j /«\!/*\!/#Sl/»\t/«\{/«\| 

JTHE FOLLOWING IS A PRESENTATION OF POSSIBLE REASONS AS TO WHY 
ITHIS ERROR REPORT WAS GENERATED, THE INFORMATION SHOWN IS 
jBASED ON FAULT INSERTION RESULTS, AND SHOULD PROVIDE LOGICAL 
;AB£AS TO CHECK FOR THE RELEVANT FAULT/S, 
I 

IIF THIS ERROR REPORT WAS THE 1ST GIVEN IN A SERIES OF ERRORS 
jANALYZE THE FOLLOWING AREA/Sl 

> 

JM7846 (UNI6US INTERFACE) 
} 

J SIGNAL NAME REASON POSSIBLE CHIPS 



jBUS D06 


STUCK HIGH 


L4 




CAN'T SEND DATA 


£41 


jB TRANSFER REQUEST 


STUCK HIGH 


Et5 


IRX INIT 


STUCK LOW 


F3b,El 1 


jBUS D15 


STUCK LOw 


El 4 


>D00(1) H 


STUCK HIGH 


fe-22 


>RX RUN 


STUCK LOW 


E18 


;BUS D00 


STUCK LOW 


E7 



I 

957 P02642 104412 1$: SUbSCOPE 

958 

959 
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960 
961 
962 
963 
964 
965 
966 
967 
968 
969 
970 
971 
972 
973 
974 
975 
976 
977 
978 
979 




002644 005000 

002646 017701 

002652 020100 

002654 001401 



002656 104000 



J (P0) 



SFL 
DRIVE DD 
RUY 



CLR R0 
MOV e RXDB, 
CMP Rl, P0 
BEQ 3S 

= P" J (Rl) = 

ERROR 



WRITE INIT 
PROTECT (DONE] 



ACTUAL RXDB 



= N/A 
J RXDB NOT s 



;/«\:/#\i/*\j/#\:/#\:/»\j/#\j/#\:/*\:/«\j/#\:/»\:/#\:/#\:/#\:/»\j/#\j/#\5 

ITHE FOLLOWING iS A PRESENTATION OF POSSIBLE REASONS AS TO WHY 
ITHIS ERROR REPORT WAS GENERATED, THE INFORMATION SHOWN IS 
jBASED ON FAULT INSERTION RESULTS, AND SHOULD PROVIDE LOGICAL 
lAREAS TO CHECK FOR THE RELEVANT FAULT/S, 
I 

llF THIS ERROR REPORT WAS THE 1ST GIVEN IN A SERIES OF ERRORS 
lANALYEE THE FOLLOWING AREA/Sl 

I 

JM7846 (UNIBUS INTERFACE) 



1 SIGNAL NAME 


REASON 


POSSIBLE CHIPS 


f 

IBUS D01 «> D03 


STUCK HIGH 


E7 


jLOAD 


STUCK LOW 


E17,E18 




NO SACK 


El2 




CLOCK STUCK HIGH/LOW 


E12 


IIN 


STUCK LOW/HIGH 


E21 


|RX BUSY 


STUCK HIGH 


E22 


lOUT 


STUCK LOW 


E22 


fBUS D00/D02/D03 


STUCK HIGH 


E4 


»BUS -> RXCS 


STUCK LOW 


E40 


IREG SELECT 


STUCK HIGH 


E23 


|B DONE 


STUCK HIGH 


El9 




•B2' INPUT STUCK HIGH 


El 



)/|\#/|\»/j\»/|\»/|\»/t\*/j\*/|\»/;\»/l\#/j\»/j\*/j\#/|\#/t\»/|\*/:\#/l\# 

j/l\»/j\»/l\»/l\#/l\»/t\«/l\«/j\»/t\»/l\*/l\*/l\*/j\»/l\*/l\#/j\#/l\*/l\» 
;/i\»/i\*/i\»/i\#/i\#/j\#/i\#/i\»/:\*/:\#/j\#/t\»/i\#/j\#/i\»/j\#/t\#/:\# 



1015 002660 104412 



DZBXBE,P11 TEST t 
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^tQ 0048 



i0i6 








; INTERRUPT 


TEST PART 1 f 


NO INTERRUPTS SHOULD OCCUR 


1017 














1018 


002662 


01 3702 


001204 


MOV 


KBXVEC* P2 




1019 


002666 


010246 




MOV 


B2,«'(SP) 


fSAVE INTERRUPT VECTOR FOR 


1020 












jERROR REPORT 


1021 


002670 


012722 


002730 


MOV 


»4S, (B2)f 


1 RX01 VECTOR ADDRESS 


1022 


002674 


012722 


000340 


MOV 


8PR7, (R23+ 




1023 


002700 


012602 




MOV 


CSP)4.,R2 


IRESTORE INTERRUPT VECTOR fOR 


1024 












jERROP REPORT 


1025 


002702 


005046 




CLR 


-(SP) 


1 pop PRIORITY <0N> 


1026 


002704 


012746 


002712 


MOV 


#2S,-(SP) 




1027 


002710 


000002 




BTI 






1028 


002712 


000240 




2S} NOP 






1029 


002714 


000240 




NOP 






1030 


002716 


012746 


000340 


MOV 


#PR7,-CSP) 


J RESET PDP PRIORITY <7> OFF 


1031 


002722 


012746 


002732 


MOV 


#5S,«(SP) 




1032 


002726 


000002 




RTI 






1033 














1034 








1 RETURN TO 


HERE WITH PDP 


PRIORITY = 7 IF AN RX0i INTERRUPT 


1035 












1036 














1037 








J (R0) = N/A 


, > CPl) = N/A 


> (R2) = N/A 


1038 














1039 


002730 


104000 




4Sl LPBOR 


? UNEXPECTED RX01 INTERRUPT 


1040 















l/»\S/»\!/»\}/*S|/*\|/»\l/»\j/«\j/»\s/*\!/#\l/*\|/»\|/»\|/»\:/*\|/*\j/#\| 

j/»\i/»\t/»\j/«\i/*\:/#\i/*\:/#\:/*\:/#\i/#\j/#\|/#\i/»\j/»\i/#\i/*\j/#\; 

) /»\t /*\i /»\i /*\i /»\| /»\i /«\{ /*\ t /*\i /*\i /«\ I /*\i /»\| /*\i /»\! /*\l/»\ J /»\| 

ITHE FOLLOWING Is A PREsE'^^TATION OF POSSIBLE REASONS AS TO ^HY 
ITHIS ERROR REPORT WAS GENEHATED, THE INFORMATION SHOWN IS 
iBASED ON FAULT INSERTION RESULTS, AND SHOULD PROVIDE LOGICAL 
; AREAS TO CHECK FOR THE RELEVANT FAULT/S, 
I 

IIF THIS ERROR REPORT WAS THE 1ST GIVEN IN A SERIES OF ERRORS 
lANALYZE THE FOLLOWING AREA/S! 

I 

;M7fl46 ( UNTBUS INTERFACE) 
I 

} SIGNAL NAME REASON POSSIBLE CHIPS 

J 

J INT ENB STUCK HIGH E3b 

1 

j/|\«/!\»/!\»/!\*/|\*/j\«/|\»/;\#/j\»/;\»/|\»/!\»/j\»/|\#/j\#/|\»/l\*/:\# 
j/j\»/i\»/j\*/i\»/!\»/i\«/|\*/!V*/j\»/j\»/j\*/}\»/:N*/{\»/j\*/t\»/}\»/:\» 

l/jV»/|\»/s\«/|\«-/l\»/}\«/|\»/j\»/!\«/|\*/S\»/j\»/j\»/j\#/;\«/l\«/;S#/|\* 

1064 002732 000004 5S! SCOPE 

1065 002734 000137 004246 JMP CEXIT ; END OF TEST 1 
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1066 










.SBTTL TEST 2 - INTERRUPT TEST PART 11 / VECTOR ADDRESS VERIFICATION 


1067 
















1068 








; THE 


PURPOSE OF THIS TEST IS TO 


VERIFY THAT WRITING THE PXCS INTERRUPT ENABLE 


1069 








I (BIT 


6) = 


I DOES INDEED WRITE 


IT TO A 1, THEREFORE BECAUSE DONE = 1 


1070 








; AN INTERRUPT SHOULD OCCUR (THE 


PDP PRIORITY IS ) 


1071 
















1072 


002740 


013702 


001 204 


T2! 


MOV 


KRXVECr «2 




1073 


0id2744 


01024b 






MOV 


R2r-(SP) 


{SAVE INTERRUPT VECTOR FOR 


1074 














jERPOR REPORT 


1075 


00274b 


01 2722 


003016 




MOV 


«1S, (R2)+ 


> RX01 VECTOR ADDRESS 


1076 


002752 


012722 


000340 




MOV 


JfPR7, (R2) + 




1077 


002756 


012602 






MOV 


(SP)+,R2 


{RESTORE INTERRUPT VECTOR FOR 


1078 














{ERROR REPORT 


1079 


002760 


005046 






CLR 


-(SP) 


{ PDP PRIORITY <0N> 


1080 


002762 


012746 


002770 




MOV 


»6S,-(SP) 




1081 


002766 


000002 






RII 






1082 


002770 


052777 


000100 


176210 bSl 


BIS 


#BIT6, 9 RXCS 


{ SET RX01 INTERRUPT ENABLE 


1083 


00277t> 


000240 






NOP 






1084 

















{ /»\J /*\| /»\; /*\ J /»\! /»\; /«\| /*\s /»\i /«\! /»\| /*\ j/»\|/»\s /»\! /»\i /#\; 

{ /»\ J /»\i /*\|/»\j /*\s /»\{ /»\{ /«\j /»\: /»\i /»\i /»\| /»\| /»\| /*\{ /»\i /*\j /»\j 
;/#\j/*\i/»Sj/*\|/»\t/#\j/«\:/»\j/*\;/»\{/«\|/#\t/«\t/#\:/*\j/*\j/»\i/»\; 

{THE FOLLOWING IS A PRESENTATION OF POSSIBLE REASONS AS TO WHY 
{THIS ERROR REPORT WAS GENERATED, THE INFORMATION SHOWN IS 
{BASED ON FAULT INSERTION RESULTS. AND SHOULD PROVIDE LOGICAL 
{AREAS TO CHECK FOR THE RELEVANT FAULT/S, 
> 

{IF THIS ERROR REPORT WAS THE 1ST GIVEN IN A SERIES OF ERRORS 
{ANALYZE THE FOLLOWING AREA/Sl 

i 

{M7846 (UNISUS INTERFACE) 



{ 

{ SIGNAL NAME REASON POSSIBLE CHIPS 
I 

{ SACK FLOP LOCKED CLEAR E13»E31,E36 

, BBSY FLOP CLOCK LOCKED HIGH El 3 , E3 1 , E36 , E33 

{BUS REQUEST STUCK HIGH E31 

{BUS INTR STUCK HIGH E3 1 , E35 , E8 , E38 

, SACK FLOP CLOCK LOCKED HIGH E3 1 , E2 1 # E9 , El 2 

{ — SACK FLOP CLOCK LOCKED LOW E3l,E2l 

{ — BBSY FLOP CLOCK LOCKED LOW E3l#E33,E9 

{BUS D02/D04/D05 STUCK HIGH E38 

{BUS SACK STUCK HIGH E32 

{BG OUT STUCK HIGH E32#E25»E28 

{BUS REQUEST STUCK LOW E39 

I JUMPER (Nl) NOT IN 

{BUS D07 STUCK HIGH E35,E8 

, — GRANT FLOP CAN'T BE PRESET E25rE9,E28 

{B SER DATA STUCK LOW E9 

, GRANT FLOP 'Q* OUTPUT E28 

{ STUCK HIGH 



I 

{ /|\»/|\»/lS»/|\«/|\»/|\»/|\»/|\»/|\*/{\«/|\»/l\*/jV«/|\*/j\*/|\»/tS»/|\* 
{ /|\»/!\«/|S»/|\-»/|\®/j\»/i\«/|\»/l\»/|\»/|\»/|\«/|S«/|\»/|\*/j\»/l\«/l\# 
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1124 
1125 
1 126 
1127 
1128 
1129 
1 130 
U31 
1132 



1167 
1 168 
1169 
Il7fe9 
1171 
1172 
1173 
1174 
1 175 
1 176 
1177 



J RESET pop PRIORITY <7> OFF 



003000 
003002 
003006 
003012 



000240 
012746 
012746 
000002 



000340 
003014 



NOP 

MOV »PR7,-(SP) 
MOV »7$,-(SP) 
RTI 



003014 104000 



} CR0) 
7Si 



: N/A J CPU 
ERROR 



N/A J (R2) 



N/A 



J NO RX01 INTERRUPT OCCURRED 



f /»\S /*\| /»\{ /« \| /«S{ /»\| /*\S /*\ t /*\! /*\J /»\| /»\ J /*\t /»\s /*\J/*\I /»\J /*\t 

> /♦Ni /»\» /#\| /♦Vj /♦v; /♦N J /♦X: /#\: /♦xi /#\| /♦N J /ttN: /*\| /«\| /♦V: /♦\| /♦Ni /#\ J 

>/»S|/»\j /»\!/»\i/»\i/*\|/«S|/«\|/*N|/*\|/»\s/»Sj/«\j/»\./#\|/»\|/«\|/«s, 

J THE FOLLOWING IS A PRESENTATION OF POSSIBLE REASONS AS TO WHY 
JTHIS ERROR REPORT WAS GENERATED, THE INFORMATION SHOWN IS 
jBASED ON FAULT INSERTION RESULTS, AND SHOULD PpavlDE LOGICAL 
|AREAS TO CHECK FOP THE RELEVANT FAULT/S, 
I 

;IF THIS ERROR REPORT W^S THE 1ST GIVEN IN A SERIES OF ERRORS 
jANALYZE THE FOLLOWING ARFA/St 

> 

>M7846 (UMBUS INTERFACE) 
I 

I SIGNAL NAME REASON 

I 

J BBSY FLOP LOCKED IN 'RESET' 

, ----.--.„« IM ENB FLOP CLOCK LOCKED HIGH 

. ENp FLOP CLOCK LOCKED LOW 

jRX INIT STUCK HIGH 

;BUS REQUEST STUCK HIGH 

} ---------- LOCKED IN INTERRUPT STATE 

> BG OUT STUCK HIGH 

lINT ENB(!) H STUCK LOw 

I »-,..--»-- GRANT FLOP '0' OUTPUT 

J STUCK LOW 

J TRANSFER REQUEST STUCK LOw 

jBUS INTR STUCK LOW 

J 

j/j\»/:\»/j\«/j\»/|\»/j\»/:\»/:\#/:\»/.\*/:\»/:\»/:\»/t\*/!\*/:\»/j\»/:\# 
;/:\*/j\#/:\*/:\*/:\*/:\»/:\»/;\»/|\»/:\*/:\#/:\«/t\»/:\»/,\#/.\»/,\»/}\» 

i/t\»/!\»/i\»/j\»/i\*/j\»/j\«/!\»/:\*/i\«/j\«/j\«/j\»/j\#/.\*/.\»/.\»/.\» 



POSSIBLE CHIPS 

E40,E39,E3l 
E40 

E40,E37 
E3b 

£3bre39,E32 

E36#E39 

E33 

E37,El,E4 
E28 

E4 
E38 



J RETURN TO HERE WITH THE POP PRIORITY = 7 IF AN RX^l INTERRUPT 



003016 005737 003032 



003022 001004 

003024 105237 003032 



003030 000402 



1ST CATERP 



BNE 
INCB 



DEATH 
CATERR 



IDID MORE THAN ONE INTERRUPT 
jOCCUR DUE TO BOTH 'DONE' & 'IE' 
IBITS SET BUT 'RQST INTR' FLOP 
INEVER GETTING CLEARED? 
IBRANCH IF YES 

jOTHERWisE, SET FLAG TO INDICATE 
|ONE INTERRUPT OCCURRED & GO ON 



MAlNDEC-ll-DZRXB-E 
DERXBE.pll TEST 



1178 
1179 
1180 
1181 
1182 
1183 
1184 
1 185 
1186 
1187 
1188 
1189 
1 190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 



003032 000000 



003034 ^00000 



003036 104412 
003040 005037 
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CATERF: .WORD 



isEQ f051 



DEATHl HALT 



0K2GO! SUBSCOpE 

CLR CATERR 



jTHIS IS THE INTERRUPT INDICATOR, 
1 1ST TIME THRU THIS TEST THE IN- 
IDICATOR SHOULD ALwAYS BE ZERO; 
;IF NON-ZERO A MULTIPLE OF 
I INTERRUPTS HAS OCCURRED DUE TO 
jTHE AFOREMENTIONED CONDITION 
;N0 SENSE GOING ON - YOU ARE 
jLOCKED IN THE INTERRUPT STATEI 
jPRESS THE 'CONT' SWITH (IF 
JPRESENT) TO GO ON AT YOUR OWN 
IRISK 

^EVERYTHING APPEARS TO BE OK 
jCLEAR INTERRUPT INDICATOR FOR 
jNEXT POSSIBLE PASS THRU THIS TEST 



J THE RXCS SHOULD = 140 (INTERRUPT ENABLE+DONE) 



003044 
003050 
003054 
003056 



01270« 000140 

020077 176132 
001403 

017701 176124 



MOV »140 
CMP R0, I 
BEQ 2$ 
MOV 9 RXCS 



R0 

RXCS 



003062 104000 



(R0) = 140 I (Rl) = ACTUAL RXCS j (R2) = N/A 

ERROR J THE RXCS NOT s 140 



>/#\j /»\: /»\j /♦Si /«\: /♦\j/*\ J /#\: /•V: /»\: /»\i /#\j /#\, /»\: /#Vi/#\, /»\, 

i/#\:/#\:/»\i/#\:/*\j/»\:/#\i/»\:/*\!/»Vj/*\:/«\i/*\i/#\i/»\i/#\:/#\j/#\i 

i/#\j/»\:/»\j/»\i/i»\i/»\i/«\j/»\:/»\:/#\i/«\i/#\i/»\j/»\i/#\j/#\t/#\i/»\i 

;THE FOLLOWING IS A PRESENTATION OF POSSIBLE REASONS AS TO WHY 
ITHIS ERROR REPORT WAS GENERATED, THE INFORMATION SHOWN IS 
jBASED ON FAULT INSERTION RESULTS, AND SHOULD PROVIDE LOGICAL 
lAREAS TO CHECK FOR THE RELEVANT FAULT/S, 
> 

JIF THIS ERROR REPORT WAS THE 1ST GIVEN IN A SERIES OF ERRORS 
lANALYZE THE FOLLOWING AREA/Sl 



»M7846 (UNIBUS INTERFACE) 



SIGNAL NAME 



REASON 



POSSIBLE CHIPS 



STUCK HIGH 
STUCK HIGH 



E4 
El 



IBUS D07 
;BUS 006 
I 

J /i\»/t\»/:\»/j\»/t\*/i\*/j\«/|\»/!\»/|\»/j\»/j\*/|\»/i\*/t\*/i\#/i\*/|\» 
>/i\»/j\»/i\»/i\»/:\»/j\#/i\*/i\#/i\#/i\»/i\#/i\#/,\#/i\»/i\#/i\»/:\#/i\« 
> /t\»/i\*/|\»/|\*/i\*/i\*/t\»/i\»/i\#/i\#/j\»/i\»/i\»/i\»/i\»/i\#/i\»/t\* 



1228 
1229 
1230 
1231 
1232 
1233 



003064 104412 



2St 



SUBSCOPE 



J TEST 2 - CONT'D 

1 THE PURPOSE OF THIS TEST IS TO VERIFY THAT BIT 6 OF THE RXCS (INTERRUPT ENABliEJ 
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1234 










; CAN 


BE CLEARED AFTER IT WAS KNOWN TO 


BE SET 


1235 
















1236 


003066 


013702 


001 204 






MOV KRXVEC* P2 




1237 


003072 


010246 








MOV R2»-(SP) 


ISAVE INTERRUPT VECTOR FOR 


1238 














jERROR REPORT 


1239 


003074 


012722 


003164 






MOV #4$, (R2)+ 


> RXll VECTOR ADDRESS 


1240 


003100 


012722 


000340 






MOV »PP7, (R2)+ 




1241 


003104 


01 2602 








MOV (SP)+,P2 


jRESTORE INTERRUPT VECTOR FOR 


1242 














jERROR REPORT 


1243 


003106 


042777 


000100 


176072 




BIC #BlT6f SI RXCS 


; CLEAR THE RXjl INTERRUPT ENABLE BIT 


1244 
















1245 










J THE 


RXCS SHOULD = 40 (DONE) 




1246 
















1247 


0031 14 


012700 


000040 






MOV #40, P0 




1248 


003120 


020077 


176062 






CMP R0, ^ RXCS 




1249 


003124 


001403 








BEQ 3S 




1250 


003126 


017701 


1760S4 






MOV » RXCS, Rl 




1251 
















1252 










J (R0) 


= 40 > (Pi) = ACTUAL RXCS > (R2) 


= N/A 


1253 
















1254 


003132 


104000 








ERROR 


J RXCS NOT = 40 


1255 


003134 


104412 






3$S 


SUBSCOPE 




1 256 










> NO PXll INTERRUPTS SHOULD OCCUR IYLT3 




1 257 
















1258 


003136 


005046 








CLP -(SP) 


; PDR PRIORITY <0N> 


1259 


003140 


012746 


003146 






MOV »10S,-(SP) 




1260 


003144 


000002 








RTI 




1261 


003146 


000240 






10S! 


NOP 




1262 


003150 


000240 








NOP 




1263 


003152 


012746 


000340 






MOV «PR7,-(SP) 


J PDP PRlORLlTY <OFF> 7 


1264 


00315b 


012746 


003166 






MOV »n$,-(SP) 




1265 


003162 


000002 








RTI 




1266 
















1267 










; RETURN TO HERE WITH THE POP PRIORITY 


= 7 IF AN UNEXPECTED RXU INTERRUPT 


1268 










; i»HILE CLEARING THE RXH INTERRUPT ENABLE BIT 6 


1269 
















1270 










> (H0) 


= N/A ', (Rl) = N/A J (R2) = N/A 




1271 
















1272 


003 164 


1 04000 






4s: 


ERROR 


1 UNEXPECTED RXU INTERRUPT 


1273 


003166 


104412 






US! 


SUBSCOPE 




1274 
















1275 










; A^? RXU INTERRUPT SHOULD OCCUR [NOWJ 




1276 
















1277 


001 1 70 


01 3702 


001 204 






MOV KRXVEC# R2 




127 8 


003 174 


010246 








MOV P2,-(SP) 


jSAVE INTERRUPT VECTOR FOR 


1279 














lERROR REPORT 


1280 


003176 


012722 


003246 






MOV ft5S, (R2)+ 


J RXU VECTOR ADDRESS 


1281 


003202 


012722 


000340 






MOV »PR7, (R2)+ 




1282 


003206 


012602 








MOV (SP)+,R2 


JRESTORE INTERRUPT VECTOR FOR 


1283 














{ERROR REPORT 


1284 


003210 


005046 








CLR -(SP) 


J PDP PRIORITY <0N> 


1285 


003212 


012/46 


003220 






MOV #12S,-(SP) 




1286 


003216 


000002 








RTI 




1287 


003220 


052777 


000100 


175760 


12s: 


BIS jtBIT6# RXCS 


; SET RXU INTERRUPT ENABLE BIT 


1288 


003226 


000240 








NOP 




1289 


003230 


0(')024i^ 








NOP 
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1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 



003232 
003236 
003242 



003246 
003250 



003256 000137 
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012746 
012746 

000002 



000 340 
003244 



003244 104000 



000004 
042777 



000100 
004246 



MOV «PR7,-(SP) 
MOV »13S»-(SP) 
PTl 



N/A J (P2) = N/A 



; (R0) = N/A ; (Rl) 
13S! ERROR 

J RETURN TO HERE WITH THE PDP PRIORITY 

5SS SCOPE 

BIC »BlT6r ^ RXCS 

JMP CEXIT 



J NO RXU INTERRUPT OCCURRED 
= 7 IF AN RX01 INTERRUPT 

J CLEAR THE RXU INTERRUPT ENABLE 
;END of TEST 2 
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DEPXBE.Pil TEST 3 



MACYll 27C732) i6-MAB»76 15l55 PAGE 29 
« INTERRUPT TEST PART III / PRIORITY LEVEL VERIFICATION pART I 



5EQ 0054 



t 304 








, 305 








, 306 








, 307 








, 308 








1 30^ 








1310 








i 3U 








1312 








1313 








1314 








1315 








1316 


003262 


005001 




1317 








1318 








1319 


003264 


013702 


001204 


1320 


0032 70 


010246 




1321 








1322 


003272 


012722 


003404 


1323 


003276 


012722 


00034t) 


1324 


003 302 


012602 




1325 








1326 


003304 


0137 46 


000004 


1327 


003310 


012737 


003326 


1328 


003316 


012737 


000200 


1329 


003324 


000404 




1330 


003326 


022626 




1331 


00 3 3 30 


012637 


000004 


1332 


003334 


000427 




1 333 


003336 


012637 


000004 


1334 


003342 


0k34737 


006200 


1335 








1336 








1337 


003346 


01 0046 




1338 


003350 


012746 


003356 


1339 


003354 


000002 




1 340 


003356 






1341 


003356 


052777 


000100 


1342 


003364 


000240 




1343 


003366 


0002 40 




I 344 


003370 


«5l 3746 


000 3 40 


1 345 


003374 


01 2746 


003402 


1 346 


003 40V) 


000002 




1347 


003402 






1 348 








1349 








1 350 








1351 


fe)0i402 


104000 




1352 








1353 








1354 








1 355 








1 356 








1357 








1 358 


003404 


000004 




1359 


003406 


0427 77 


000100 



.SBTTL TEST 3 - INTERRUPT TEST PART III / PRIORITY LEVEL VERIFICATION PARI i 

} THE PURPOSE OF THIS TEST IS TO VERIFY THE PRIORITY OF THE RXl 1 INTERRUPT REQUEST LINE 

J THE PROGRAM SETS THE POP PRIORITY TO 1 LESS THAN THE DEVICE LEVEL 

J (DEVICE LEVEL SPECIFIED BY CONTENTS OF LOCATION 'BRLEVJ' NORMALLY 5) 

J AN RX0i INTERRUPT SHOULD OCCUR 

I IF NO INTERRUPT OCCURS THEN THE PRIORITY LEVEL OF THE RXll IS INOtJ = NORMAL 
JDEVICE LEVEL OF 5 Op THE DEVICE LEVEL AS SPECIFIED BY THE CONTENTS OF 
^LOCATION 'BRLEV!' WHICH MAY HAVE BEEN CHANGED BY THE USER BEFORE PROGRAM 
; EXECUTION, BUT MAYBE SOME VALUE LESS THAN THE CONTENTS OF LOCATION 'BrLEVj'. 
; NOTE! IF THERE IS NO HARDWARE ^psW" THIS TEST WILL BE SKIPPED, 

T3S 



000004 
1 7 77 76 



CLP 


R 1 




^INDICATOR TO CPU PRIORITY 








^ROUTINE TO DROP CPU PRIORITY 








|T0 1 LESS THAN DEVICE LEVEL 


MOV 


KRXVEC, R2 






MOV 


R2#-(SP) 




jSAVE INTERRUPT VECTOR FOR 








lERROR REPORT 


MOV 


#1S, CP2)+ 




1 RX01 VECTOR ADDRESS 


MOV 


8PR7, CR2)+ 






MOV 


(SP)*,R2 




IRESTOrE INTERRUPT VECTOR FOR 








JERROR REPORT 


MOV 


4,-{SP) 




iSAVE 'BUSERR' TIMEOUT 'PC 


MOV 


#2S,4 




;SET TIMEOUT VECTOR 


MOV 


#PR4,PSW 




>SET LEVEL TO 4 IF 'PSW' EXISTS 


BP 


3S 




jGO TO RESET VECTOR 4 6, DO TEST 


CMP 


CSP)+, (SP)+ 




jCORRECT STACK FROM BUS TIMEOUT 


MOV 


(SP)+,4 




jRESTORE TIMEOUT VECTOR TO 'BUSERR 


BR 


4$ 




fNO HARDWARE PSW - SKIP THIS TEST 


MOV 


(SP)+,4 




JRESET TIMEOUT VECTOR TO 'BUSERR' 


JSR 


PC»CPUPRI 




JCALCULATE PRIORITY LEVEL OF CPU 








IBASED ON CURRENT DEVICE PRIORITY 








jLEVEL RESIDING IN LOC . 'BRLEV' 


MOV 


R0,-CSP) 




NEW PS ON STACK 


MOV 


if64S,-(SP) 




NEW PC ON STACK 


RTl 




; IPOP 


NEW PC AND PS 


BIS 


«BIT6# a RXCS 




; SET THE RX01 INTERRUPT ENABLE 


NOP 








NOP 








MOV 


PR7, -CSP) 


nPi-'T 


NEW PS ON STACK 


MOV 


#65S,-CSP) 


; jPilT 


NEW PC ON STACK 


RTI 




; J^op 


NEW PC AND PS 


W/A 


; CRl) = N/A ; 


CR2) = N/A 



EPROR ^PRIORITY LEVEL IS NOT = CONTENTS 

;0F 'BRLEV:' (NORMALLY 5) BUT 
iMAYHE SOME VALUE LESS THAN THE 
»ThE CURRENT CONTENTS OF 'BHLEV:' 

RFTURN TO HERE WITH THE PDP PRIORITY = 7 IF AN RX01 INTERRUPT 



SCOPE 

PIC #B1T6# 9 RXCS 



J CLEAR THE RXU INTERRUPT ENABLE 



MAINDEC-1 l-'DZRXB-E 
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1360 


003414 


0001 37 


004246 


1361 








1362 








1363 








1364 








1365 








1366 








1367 








1368 








1369 








1370 








1371 








1372 


003420 


035001 




1373 








1 374 








1375 


003422 


013702 


001204 


1376 


003426 


010246 




1377 








1378 


00 3 430 


012722 


003546 


1379 


003434 


012722 


000340 


1380 


003440 


012602 




1381 








1382 


003442 


052701 


000200 


1383 








1384 








1385 


003446 


013746 


000004 


1386 


003452 


012737 


003470 


1387 


003460 


012737 


000240 


1386 


003466 


000404 




1 389 


003470 


02262fe 




1390 


003472 


012637 


000004 


1391 


003470 


000430 




1392 


003500 


012637 


000004 


1393 


003504 


004737 


006200 


1 394 








1395 








1396 








1397 


003510 


010046 




1398 


003512 


012746 


003520 


1 399 
1400 


003516 
003520 


000002 




1401 


003520 


052777 


000100 


1402 


003526 


000240 




1403 


003530 


000240 




1404 


003532 


013746 


000340 


1405 


003536 


012746 


003544 


1406 


003542 


000002 




1407 


003544 






1408 


003544 


000401 




1409 








1410 








1411 








1412 








1413 








1414 


003546 


104000 




1415 
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4S: JMP CEXIT >END OF TEST i 

.SfiTTL TEST 4 - INTERRUPT TEST pART IV / PRIORITY VERIFICATION PART 11 

} THE PURPOSE OF THIS TEST IS TO VERIFY THE PRIORITY OF THE RXU INTERRUPT REQUEST LiiNE 

; THE PROGRAM SETS THE pDP PRIORITY = THE DEVICE LEVEL, (NORMALLY 5 OR THE CONTENTS OF L 
;N0 HXOl INTERRUPTS SHOULD OCCUR 

; IF AN INTERRUPT DOES OCCUR THEN THE PRIORITY LEVEL OF THE RXll IS [NOTJ 

; = THE NORMAL DEVICE LEVEL OF 5, OP WHATEVER IS THE VALUE IN LOCATION 'BRLEV;' 

I BUT MAYBE SOME VALUE GREATER THAN THE CONTENTS OF LOC. 'BPLEVi' 

• NOTEj IF THERE IS NO HARDWARE "PSW" THiS TEST WILL BE SKIPPED, 



T4: 



CLR 



Rl 



MOV KRXVEC, R2 
MOV R2,-{SP) 



MOV «l$, 
MOV lfPR7, 



(R23 + 
(R2) + 



000004 
177776 



65$ J 



MOV 

MOV 

MOV 

BR 

CMP 

MOV 

BR 

MOV 

JSR 



MOV 
MOV 
RTI 

BIS 
NOP 
NOP 
MOV 
MOV 
RTI 

BR 2S 



#BIT7,Rl 



4»-(SP) 
#3S»4 
ltPR5,PSW 
4$ 

(SP)+, (SP)+ 

(SP)+,4 

5$ 

(SP)+,4 
PC#CPUPRI 



R0,-(SP) 
#64S,-(SP) 



»BIT6,|8RXCS 



PR7,-(SP) 
#65$, -(SP) 



; INDICATOR TO CPU PRIORITY ROUTINE 
jTO DROP CPU PRIORITY 1 LEVEL 
fLESS THAN THE DEVICE LEVEL 

jSAVE INTERRUPT VECTOR FOR 

jERROR REPORT 

J RX01 VECTOR ADDRESS 

{RESTORE INTERRUPT VECTOR FOR 
JERHOR REPORT 

jSET INDICATOR TO CPU PRIORITY 
IROUTINE TO SET CPU PRIORITY LEVEL 
jTO THE SAME LEVEL AS THE DEVICE 
»SAVE 'BUSERR' TIMEOUT 'PC 
jSET TIMEOUT VECTOR 
jSET LEVEL TO 5 IF 'PSW' EXISTS 
JGO ON TO RESET VECTOR & DO TEST 
jCORRECT STACK FROM BUS TIMEOUT 
?RESTORE TIMEOUT VECTOR TO 'BUSERR' 
jNO HARDWARE PSW - SKIP THIS TEST 
> RESET TIMEOUT VECTOR TO BUSERR 
{CALCULATE CPU PRIORITY LEVEL TO 
fBE THE SAME AS THE DEVICE LEVEL 
|I,E, - SAME AS CONTENTS OF LOC, 
J 'BRLEV 

} >PUT NEW PS ON STACK 

nPUT NEW PC ON STACK 

nPOP NEW PC AND PS 

ISET RXOl INTERRUPT ENABLE 



nPUT NEW PS ON STACK 
nPUT NEW PC ON STACK 
If POP NEW PC AND PS 



J RETURN TO HERE WITH THE PDP PRIORITY 
r (R0) a N/A I (PI) = N/A > (R2) = N/A 
l$J ERROR 



7 IF AN RX01 INTERRUPT 



IPBIORITY LEVEL NOT = TO CONTENTS 
|0F LOCATION 'BRLEVl* (NORMALLY 5) 
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1416 JBUT MAYBE SOME VALUE GrEATEB THAN 

1417 >THE CONTENTS SPECIFIED BY LOC. 
1419 j'BPLEV!' 

1419 003550 000004 2$! SCOPE 

1420 003552 042777 000100 175426 BIC »BIT6» 9 RXCS | CLEAR THE HX0i INTERRUPT ENABLE 

1421 003560 000137 004246 581 JMP CEXIT lEND OF TEST 4 
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1422 
1423 
1424 
1425 
1426 
1427 
1428 
1429 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 



1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 



.SBTTL TEST 5 - INIT CPROGHAmMEDJ / RST 

J THE PURPOSE OF THIS TEST IS TO VERIFY THAT SETTING THE RXCS BIT 14 
J CAUSES AN RX01 PROGRAMMED SUBSYSTEM INITIALIZE 

; THE RXCS SHOULD s 40 (DONE) 

J THE RXD8 SHOULD = 4, OR 104, OH 204, OR 304 



003564 
003572 
003576 
003600 
003604 
003610 
003612 



052777 
004737 
000775 
012700 
017701 

020100 

001401 



040000 
006574 



000040 
175376 



175414 



T5! 
ISl 



1 (R0) 



BIS »BIT14, $ RXCS 
JSP PC, SDN 
BR IS 

MOV #40, R0 
MOV g RXCS, Rl 
CMP Bl, P0 
BEQ 2S 



RX01 PROGf<AMMED INITIALISE 
vJAIT FOR ThE DONE BIT 



; PROGRAM EXPECTS PXCS 
J ACTUAL RxCS 



003614 104000 



: 40 J (Rl) = ACTUAL RXCS > (R2) = N/A 
ERROR J RXCS NOT = 



,/#\}/»\i/*\j/#\i/#\:/*\t/«\j/»\i/»\:/»\i/»\i/*\j/*\:/»\{/#\i/#\i/»\|/*\j 

/»\i/»\i/»\j/»\i/*\s/»\t/*\i/*\i/»Si/»\i/»\i/»\5/»Si/»\i/*\i/»\s/»\i 

I IF THE FAULT CANNOT BE FOUND ON THE UNIBUS INTERFACE MODULE 
|AND/OR THE FAULT IS NOT INHERENT TO THE UNIBUS INTERFACE MODULE 
|M7846 THERE IS A POSSIBILITY OF ITS EXISTENCE ON THE READ/wRITE 
IMODULE M7727, 

NOTE: ONLY APPROX, 30% OF THIS MODULE LENT ITSELF CONDUCIVE TO 

THE FAULT INSERTION PR0CESS| ERGO, THE RESOLUTION FOR FAULT 
ANALYSIS OBTAINABLE BY THIS MODULE IS NOT VERY HIGH, 
HOWEVER, ANALYSIS OF THE FOLLOWING ArEA/S, IF THIS ERROR 
REPORT WAS THE 1ST GIVEN IN A SERIES OF ERRORS, SHOULD AT 
LEAST PLACE YOU WITHIN THE RELEVANT AREA ON THE MODULE, 

M7727 (BEAD/WRITE CONTROL) 

SIGNAL NAME 



REASON 
INPUT LOCKED LOW 



POSSIBLE CHIPS 
E16 



/t\#/|\»/|\*/l\*/|\»/|\*/|\»/j\*/|V*/|\#/|\*/l\*/|V*/|\*/|\*/t\»/l\*/j\* 



003616 104412 



2Sj SUBSCOPE 

/////////////////////////////////////////////////////////////////////////////// 
76««3210 / 

PAR / 



SEL 
DRIVE 



DD 



WRITE INIT 
PROTECT [DONE] 



CRC 
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1478 








1 


RDY 


1479 








1 




1480 








1 ///// 




1481 












1482 








', THE 


RXDB SHOULD a 


148 3 








J OH 204, OR 304 IF 


1484 












1 485 


003620 


01 2700 


000204 




MOV #204, P0 


I486 


003624 


017702 


175360 




MOV 0RXDB,R2 


148 7 


003630 


1 0201 






MOV R2,R1 


1488 


003 6 3 2 


042701 






BIC »B1T6?RI 


1489 


003636 




012724 




TSTB UNITSEL 


1 490 


003642 


1 4 4 






BMI 3S 


1491 


003644 


042701 


000200 




BIC «BIT7, Rl 


1492 


003650 


042700 


000200 




BIC »BIT7,B0 


1493 


003654 


020100 




3S: 


CMP Rl, H0 


i 494 


003656 


001401 






BEG 4S 


1495 












1496 








; CR0) 


= 4, OR 204 


1497 








J CRl) 


= ACTUAL RXDB 


1498 








; (P2) 


= ACTUAL RXDB 


1499 












1500 


003660 


10400!^ 






ERROR 


1501 













IF TESTING UNIT 1 

UNIT (SEL. DRIVE RDY, 



iCLEAR DELETED DATA BIT 
J WAS UNIT SELECTED 



lUNIT WAS NOT SELECTED 
jCLEAR UNIT RDY BITS 



J RXDB NOT 3 4» OR 104, QR 204, OR 304 



/«\! /»\ /#\| /*\{ /«\S/«\| /*\ J /*\ J / 



;THE FOLLOWING Is A PRESENTATION OF POSSIBLE REASONS As TO WHY 
jThlS ERROR RtPOPT WAS GENERATED, THE INFORMATION SHOinN IS 
jBAsGD ON FAULT INSERTION RESULTS, AND SHOULD PROVIDE LOGICAL 
> AREAS TO CHECK FOR THE RFLEVANt FAULT/S, 
» 

JIF THIS ERROR REPORT WAS THE 1ST GIVEN IN A SERIES OF ERRORS 
jANALYZE THE FOLLOWING ARFA/SS 



|M7846 (UMBUS INTERFACE) 
} 

J SIGNAL NAME 



REASON 



>RX INIT 
JIN 

IBUS D05 
IRX DATA 



}B SER DATA 
jDONE 



STUCK HIGH 
STUCK HIGH 
STUCK LOW 
STUCK LOW 

SACK FLOP CLOCK LOCKED LOW 
STUCK LOW 
STUCK HIGH 

LOAD PULSE STUCK LOW 



POSSIBLE CHIPS 

Ell.EJb 

Ell 

£1 

E14 

E9 

E9 

E22 

E3 



j/:\*/!\»/5\*/!\«/!V»/5\«/jS*/;\»/.\#/8\»/s\*/|\»/,\»/.\»/;\»/.\*/j\*/.\» 
1532 003662 104412 4S! SUBSCOPE 



MAINDEC-I 1 -DZRXB-E 
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1533 










; TEST 


5 CONT'D - RXCS TEST PART II / RST 




1534 




















1535 










f THE 


PURPOSE OF THIS TEST IS TO VERIFY 


THE RST COMMAND »12*G0 




1536 










J AND 


THAT THE DONE 


BIT IS CLEARED AFTER 


THE FUNCTION IS ISSUED, 




1537 


















1538 


003664 


012777 


000013 


175314 




MOV »13, @ 


RXCS 


} RST COMMAND 




1539 


003672 


032777 


000040 


1 75306 




BIT »BIT5» 


RXCS 


1 TEST DONE BIX (SHOULD : 


: 0) 


1540 


003700 


001 404 








BEO 5$ 








1541 


003702 


017701 


175300 






MOV P RXCS, 


Rl 






1542 


003706 


005000 








CLR R0 








1543 




















1544 










J (R0) 


= J (Rl) = 


ACTUAL RXCS J (R2) = 


N/A 




1545 




















1546 


003710 


104000 








ERROR 




J DONE BIT NOT = 




1547 


003712 


104412 






5S! 


SUBSCOPE 








1548 


003714 


004737 


006574 




9SS 


JSR PC, SDN 




i WAIT FOR DONE FLAG 




1549 


003720 


000775 








BR 9$ 








1550 


003722 


012700 


000040 






MOV #40, R0 




> PROGRAM EXPECTS RXCS = 


40 (DONE) 


1551 


003726 


017701 


175254 






MOV 1 RXCS, 


Rl 


I ACTUAL RXCS 




1552 


003732 


020100 








CMP Rl, B0 








1553 


003734 


001 401 








BEQ 10S 








1554 




















1555 










} (R0) 


= 40 I (Rl) 


= ACTUAL RXCS j (R2) 


s N/A 




1556 




















1557 


003736 


104000 








ERROR 




J RXCS NOT = 40 




1558 





















1585 
1586 
1587 
1588 



|/»Sl/»\|/*\l/»\|/»\!/*\|/*\l/*\j/«\j/»\|/»\!/«\l/»\j/«\j/#Sl/»\|/#\j/»\j 
|/«\l/»\{/»\|/#\l/«\|/»\|/«\}/«\|/»\j/*\j/«\|/»\|/»\|/#\l/#\j/#\l/»\j/#Sl 

;/»\:/*\i/#\:/»\i/»\j/*\:/«\t/#\:/*\i/»\j/#\j/#\i/«\t/»\i/»\j/»\i/»\t/#\| 

J THE FOLLOWING Is A PRESENTATION OF POSSIBLE REASONS As TO WHY 
{THIS ERROR REPORT WAS GENERATED, THE INFORMATION SHOWN IS 
{BASED ON FAULT INSERTION RESULTS, AND SHOULD PROVIDE LOGICAL 
{AREAS TO CHECK FOR THE RELEVANT FAULT/S, 
i 

{IF THIS ERROR REPORT WAS THE 1ST GIVEN IN A SERIES OF ERRORS 
{ANALYZE THE FOLLOWING AREA/Sl 

t 

{M7846 (UNIBUS INTERFACE) 
I 

{ SIGNAL NAME 

I 



REASON 



POSSIBLE CHIPS 



I 



— — PARITY FLOP CLOCK LOCKED HIGH E2 

----- PARITY FLOP 'Q' OUTPUT E2 

{ LOCKED HIGH 

{RX DATA STUCK LOW E6 

I 

{/i\»/i\*/:\*/i\*/i\»/j\#/t \#/i\«/:\»/:\#/i\»/i\#/:\»/j\»/|\#/i\»/i\#/i\» 
{/i\»/:\»/i\*/i\*/i\»/i\*/:\»/ j\»/i\#/t\#/i\#/j\»/i\»/i\#/i\#/i\#/t\#/i\# 
{/i\»/t\»/i\»/i\»/i\#/j\*/i\»/i\»/j\»/i\»/j\#/i\#/,\#/t\»/i\«/i\*/i\#/,\» 

003740 104412 10SI SUBSCOPE 



{ THE RXDB SHOULD s 200 (IF DRIVE IS READY), OR IF UNIT IS NOT SELECTED 
{ MAYBE 300 (IF DRIVE IS READY AND SECTOR I WAS WRITTEN WITH DELETED DATA) 
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1589 














1590 


003742 


017702 


175242 






1 «l,lUHlj nAup 


1591 


1 T A <; 








MU V net HI 




1592 


wJx> 3 1 OV 








BIC #B1T6| hi 


> CLEAR N/A DELETED DATA 


1593 


003754 


01 2700 


000200 




MOV #200(iR0 


^EXPECT UNIT RDY SET 


^ 


00 3760 


105737 


0127 24 




TSTB UNITSEL 




1595 


003764 


1 0040 3 






BMI lis 




1596 


003766 


042701 


000200 




BIC *81T7»R1 


; UNIT NOT SELECTED 


1597 


003772 


005000 






CLP R0 


1 DISREGUARD RDY BITS 


1598 


003774 


020100 




us: 


CMP Rl, R0 




1599 


003776 


001 401 






BEG 12S 




160id 














1601 










s OP 200 




1602 








; (PI) 


B ACTUAL RXD8 MINUS DELETED DATA 


BIT#6 


1603 








J (P2) 


= ACTUAL PXDB 




1604 














1605 


004000 


104000 






ERROR 


1 RXDB NOT = 200* OR NOT 


1606 


004002 


000004 




12S5 


SCOPE 




1607 


004004 


000137 


004246 




JMP CEXIT 


>END OF TEST 5 
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1608 








1609 








1610 








16U 








1612 








1613 








lbl4 








1615 


004010 


012737 


0^^0006 


1616 


004016 


004737 


004026 


1617 


004022 


000137 


004246 


1618 








1619 








1620 








1621 


004026 


005002 




1622 


004030 


012777 


000001 


1623 


004036 


004737 


012260 


1624 


004042 


012704 


017404 


1625 


004046 


004737 


004064 


1626 


004052 


000207 




1627 








1628 


004054 


U 2477 


175130 


1629 


004060 


005202 




1630 


004062 


000771 




1631 








1632 








1633 








1634 


004064 


004737 


006560 


1635 


004070 


000403 




1636 


004072 


062716 


000002 


1637 


004076 


000207 




1638 








1639 


004100 


004737 


006574 


1640 


004104 


000767 




1641 


004106 


005777 


175074 


1642 


004U2 


100003 




1643 


004114 


017701 


175070 


1644 








1645 








1646 








1647 


004120 


104000 




1648 









,SBTTL TEST 6 - FILL BUFFER TRANSFKR LENGTH VERIFICATION 

J THE PURPOSE OF THIS TEST IS TO VERIFY THE TRANSFER LENGTH OF THE FUNCTION 
J "FILL BUFFER" OF THE RX01 HICROCOrJTPOLLER 



J 128 BYTE TRANSFERS SHOULD OCCUR 



012324 T6! 



MOV tb, PAT 
JSP PC, T6FILL 
JMP CEXIT 



J EXECUTE THE FOLLOWING " MOV #1, 

T6FILLJ CLP P2 

MOV %\, (3 PXCS 

JSP PC, GETPATTERN 

MOV OBUFADP, R4 
IS! JSR PC, FBEB 

RT5 PC 



I COUNT PATTERN 
;END OF TEST 6 
P PXCS " INSTEAD OF " INC RXCS 



FOR LOOPS 



MOVB (R4)+, 
INC R2 
BP IS 



% RXDB 



{FILL BUFFER FUNCTION [0 ♦ GO BIT] 



> SUBROUTINE TO FILL/EMPT^ BUFFER 
J EXIT SUBROUTINE T6FILL 



I FILL THE SECTOR BUFFER 
I INC R2 FOR BYTE COUNT 



> SUBROUTINE TO FILL AND EMPTY THE SECTOR BUFFER 



JSP PC, 
BP IS 
ADD #2, 
RTS PC 



STR 
9 SP 



I (P0) 



JSR PC# SDN 
BR FBEB 
TST » RXCS 
BPL 3S 

MOV §RXDB,R1 
= M/A I (Rl) = 

ERROR 



! TEST FOR TRANSFER REQUEST 



f ADJUST FOR EXIT FROM THIS SUBROUTINE 
I EXIT TO SERVICE TRANSFER REQUEST 



> NOT TRANSFER REQUEST OR DONE 
ITEST FOR ERROR FLAG 



RXDB (STATUS A) J 



(R2) a ACTUAL » OF TRANSFERS 
J UNEXPECTED RXU ERROR FLAG 



)/tf\i/»\i/t\|/»\i/»\:/«\t/«\{/*\i/*\!/«\t/*\|/«\|/«\|/«\i/«\i/«\i/«\{/«\i 
j/«\i/»\i/»\j/*\i/»\i/*\j/#\j/«\»/#\j/#\i/#\j/#\i/#\t/»\i/*\i/#\j/*\i/#\i 

>/»\|/#\|/»\|/»\l/»\|/»\|/»\l/#\|/»\|/#N|/»\|/*\|/»\l/«\|/»\|/»\|/«\|/»\| 

JTHE FOLLOWING IS A PRESENTATION OF POSSIBLE REASONS AS TO WHY 
JTHIS ERROR REPORT WAS GENERATED. THE INFORMATION SHOWN IS 
IBASED ON FAULT INSERTION RESULTS, AND SHOULD PROVIDE LOGICAL 
lAREAS TO CHECK FOR THE RELEVANT FAULT/S, 
I 

JIF THIS ERROR REPORT WAS THE 1ST GIVEN IN A SERIES OF ERRORS 
{ANALYZE THE FOLLOWING AREA/SJ 

I 

JM7846 (UNIBUS INTERFACE) 
I 
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DZRXBE.Pll TEST 6 - FILL BUFFER TPANSFtR LENGTH VERIFICATION 



SEU 0062 



SIGNAL NAME REASON POSSIBLE CHIPS 

--— PARITY FLOP CAN'T BE CLEARED E2 



;/j\»/|\»/j\»/:\*/i\«/i\«/:\*/t\*/i\»/i\»/i\«/:\*/:\#/i\#/:\#/i\«/:\»/j\# 

1672 004122 104412 3Si SUBSCOPE 

1673 

1674 J 128 bVTES SHOULD HAVE BEE*^ TRANSFERRED TO OR FROM THE SECTOR BUFFER 

1675 

1676 004124 022702 000200 CMP #200#R2 

1677 004130 001401 BEQ 2S 
1678 

1679 J (H0) = ti/k > (PI) = N/A J (R2) = ACTUAL « OF TRANSFERS 

1680 

1681 0041 32 10400»? ERROR > INcORRgCT TRANSFER LENGTH 

1682 

I /«\j/»\j/»\j/»\:/»\t/»\:/*\|/«\j/»\;/*\i/»\j/#\j/»\j/#\|/»\:/#\»/*\:/»\j 

JTHE FOLLOWING IS A PRESENTATION OF pOsSlBLE REASONS AS TO WHY 
}THIS ERROR REPORT WAS GENERATED, THE INFORMATION SHOWN IS 
iBASED ON FAULT INSERTION RESULTS, AND SHOULD PROVIDE LOGICAL 
lAREAS TO CHECK FOR THE RELEVANT FAULT/S, 
I 

>IF THIS ERROR REPORT WaS THE 1ST GIVEN IN A SERIES OF ERRORS 
^ANALYZE THE FOLLOWING ARFA/S: 

J 

JM7846 (UNIBUS INTERFACE) 
> 

J SIGNAL NAME RFASON POSSIBLE CHIPS 

IRX DATA STUCK LOW E19,E6 

) 

>/:\»/;\»/j\»/j\»/:\»/:\»/:\#/:\»/:\»/:\»/:\»/j\*/:\*/:\»/|\#/j\#/j\«/:\» 

j/|\»/j\*/|\»/|\*/j\»/|\»/|\»/}\»/j\»/!\»/:\»/}\»/j\»/!\»/i\»/{\#/,\»/iS» 

1706 004134 000004 2S: SCOPE 

1707 

1708 004136 000207 RTS PC J EXIT SUBROUTINE FBEB 
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DZRXBE, 


Pll 


TEST 10 


1709 






1710 






1711 






1712 






1713 






1714 






1715 


004140 


^00240 


1716 






1717 






1718 






1719 






1720 






1721 






1722 






1723 


004142 


004737 


1724 


004146 


000137 


1725 


004152 


005002 


1726 


004154 


012777 


1727 


004162 


012704 


1728 


004166 


004737 


1729 


004172 


000207 


1730 






1731 






1732 






1733 


004174 


1 12400 


1734 


004176 


117701 


1735 


004202 


005202 


1736 


004204 


020001 


1737 


004206 


001 401 


1738 






1739 






1740 






1741 






1742 






1743 






1744 






1745 


004210 


1 04000 


1746 







004152 
004246 



000003 
017404 



175024 



.SBTTL TEST 10 - EMPTY BUFFER XFER LENGTH AND CONTENT VERIFICATION PART II 

f THE PURPOSE OF THIS TEST IS TO VERIFY IHAT THE PREVIOUS EMPTY BUFFER TEST 
J DID NOT EMPTY AND DESTROY THE CONTENTS OF THE SECTOR BUFFER 
JNOTE: TEST 6 MUST BE RUN BEFORE THIS TEST, 

T10! NOP J NOP FOR T10 " FAST " DEFINITION 

, SBTTL TEST 7 - EMPTY BUFFER XFER LENGTH AND CONTENT VERIFICATION PART I 

; THE PURPOSE OF THIS TEST IS TO VERIFY THE TRANSFER LENGTH OF THE FOUNCTION 
; "EMPTY BUFFER" AND ALSO TO VERIFY THE CONTENTS OF THE SECTOR BUFFER 
; NOTE TEST 6 MUST BE RUN BEFORE THIS TEST 



T7! JSR PC, T7EMPTY 

JMp CEXIT 
T7EMPTY: CLR R2 

MOV #3, 9 RXCS 

MOV IBUFADR, R4 
2S: JSR PC, FBEB 

RTS PC 

; EMPTY BUFFER AND VERIFY THE CONTENTS 

MOVB (R4)+, R0 
MOVB P RXDB, Rl 
InC R2 
CMP R0, HI 
BEQ IS 

I IF AN ERROR OCCURSj 



} (R0) - EXPECTED CONTENTS OF SECTOR BUFFER 
I (Rl) - ACTUAL CONTENTS FROM SECTOR BUFFER 
J tR2) - TOTAL » OF ACTUAL TRANSFERS 



>END OF TEST 7 OR 10 

} ISSUE THE COMAND TO Wli BUFFER 



5 SUBROUTINE TO EMpTY BUFFER 
J EXIT SUBROUTINE T7EMPTY 



> EXPECTED CONTENTS OF SECTUR BUFFER 
) ACTUAL CONTENTS OF SECTOR BUFFER 
; ACTUAL $ TRANSFERS TO THIS ERROR 



» DATA » TO " SB NOT = DATA " FROM 



>/»\i/»\i/*\j/#\j/»\:/»Vj/»\i/«\j/»\j/#\i/»\:/»\:/#\j/#\j/*\j/#\t/#\j/#\t 
i/»\i/»\i/»\i/*\i/»\i/*\i/«\i/#\i/»\i/*\i/»\i/»\i/#\t/»\i/«\i/#\t/«\i/#\i 

/»\l/»Sj/#\|/»\!/»\|/»\|/*\j/»\l/*\|/«Sj/#\|/»\l/#\|/»\l/«\l/»\l/»\l 

ITHE FOLLOWING IS A PRESENTATION OF POSSIBLE REASONS AS TO WHY 
ITHIS ERROR REPORT WAS GENERATED, THE INFORMATION SHOWN IS 
iBASED ON FAULT INSERTION RESULTS* AND SHOULD PROVIDE LOGICAL 
lAREAS TO CHECK FOR THE RELEVANT FAULT/S, 
I 

I IF THIS ERROR REPORT WAS THE 1ST GIVEN IN A SERIES OF ERRORS 
lANALYZE THE FOLLOWING APEA/Sl 

M7846 (UNIBUS INTERFACE) 



SIGNAL NAME 



REASON 
STUCK LOW 



POSSIBLE CHIPS 
E24 
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DZRXBE.Pll TEST 7 - EMPTY BUFFER XFER LENGTH AND CONTENT VERIFICATION PART 1 



1795 
1796 
1797 
1798 
1799 
1800 
1801 
1802 
1803 
1804 
1805 
1806 
1807 
1808 
1809 
1810 



iLOAD 
> 

|RX DATA 
I BUS O04/D05 
>BUS D02 
I 



STUCK LOW 

BINARY COUNTER 
LOCKED HIGH 
STUCK HIGH 
STUCK HIGH/LOW 
STUCK HIGH 



El 8 



E3 

E1,E4 
E7 



I IF THE FAULT CANNOT BE FOUND ON THE UNIBUS INTERFACE MODULE 

I and/Or the fault is not inherent to the unibus interface module 

|M7846 there IS A POSSIBILITY OF ITS EXISTENCE ON THE READ/WRITE 
IMODULE M7727 . 

NOTE! ONLY APPROX, 30% OF THIS MODULE LENT ITSELF CONDUCIVE TO 

THE FAULT INSERTION PROCESS! ERGO, THE RESOLUTION FOR FAULT 
ANALYSIS OBTAINABLE BY THIS MODULE IS NOT VERY HIGH, 
HOWEVER* ANALYSIS OF THE FOLLOWING AREA/S, IF THIS ERROR 
REPORT WAS THE 1ST GIVEN IN A SERIES OF ERRORS, SHOULD AT 
LEAST PLACE YOU WITHIN THE RELEVANT AREA ON THE MODULE, 

M7727 (READ/WRITE CONTROL) 

SIGNAL NAME REASON 

REPLACE E5 



POSSIBLE CHIPS 



/:\*/t\*/iV#/i\»/:\»/:\*/j\#/j\»/;\»/j\»/i\#/i\*/j\#/:\»/:\»/,\»/i\#/,\» 



004212 
004214 



004216 
004224 



004226 
004232 
004236 
004242 



SCOPE 
BR 28 



.SBTTL TEST 12 - KILL/EMPTY BUFFER ALL 1 'S 
PROGRAMMING NOTEj THE FOLLOWING » MOV " INSTEAD OF 



FOR LOOPS 



012737 

000402 



005037 
004737 
004737 
0001 3 7 



000001 012324 Tl 2 1 



012324 
004026 
004152 
004246 



MOV m, PAT 
bP . + 6 

.SBTTL TEST 11 - FILL/EMPTY BUFFER ALL 0'S 
CLR PAT 

JSR PC, T6FILL 
JSR PC, T7EMPTY 
JMP CEXTT 



jEND OF TEST U OR 12 



MAlNDEC-1 1-DZRXB-E MACYU 27(732) 16-MAR-76 

DZRXBE.Pll TEST U - FILL/EMPTY BUFFER ALL 0' 



15:55 PAGE 40 



811 
812 
813 
814 
815 
816 
817 
818 
819 
820 
821 
822 
823 
824 
825 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 
847 
848 
849 
850 
851 
852 
853 
854 
855 
856 
857 



004246 


012737 


000103 


004254 


0001 37 


002162 


004260 


012737 


000104 


004266 


0001 37 


002162 


004272 


105737 


012724 


004276 


100020 




004300 


012777 


00001 3 


004306 


004737 


006574 


004312 


000775 




004314 


012700 


000200 


004320 


017702 


174664 


004324 


010201 




004326 


042701 


000100 


004332 


020001 




004334 


001401 




004336 


104000 




004340 


104412 




004342 


005737 


012724 


004346 


100020 




004350 


012777 


000033 


004356 


004737 


006574 


004362 


000775 




004364 


012700 


000200 


004370 


017702 


174614 


004374 


010201 




004376 


042701 


000100 


004402 


020100 




004404 


001401 




004406 


104000 





002534 DEXIT; 

jTHIS 
;ThlS 
Tl is 

174700 

IS! 



MOV «'C,MX 

JMP MOPETESTS 



MOV #'D»MX 
JMP MORFTESTS 



;EOP INDICATOR FOR END OF COrtTROL TESTS 
JEOP INDICATOR FOR END OF DRIVE IfcSTS 



.SBTTL TEST 13 DRIVE READY VERIFICATION 
TEST VERIFIES THAT DRIVE READY WILL SET FOR ALL SELECTED DRIVES, 
SECTION OF TEST FOR UNIT DRY NO A READ STATES A FUNCTION 



T5TB UNITSEL 
BPL 2S 

MOV «13,PRXCS 
JSR PC, SDN 
BP IS 

MOV «200,R0 
MOV §RXDB,R2 
MOV R2,R1 
BIC »BIT6,R1 
CMP R0,R1 
BEQ 2S 



>WAS UNIT SELECTED 
J NO, GO TEST UNIT I 
JREAD STATUS A UNIT 
JWAIT FOR DONE FLAG 

jEXPECT drive READY TO BE SET 
jACTUAL RXDB 

JCLEAR DD BIT IF SET 

JWAS " DRY « SET AND INITDONE CLEARED 



|R0 = 200 J Pl = RXDB MINUS DD BIT jR2 = ACTUAL RXDB 



2SI 

JTEST 



ERROR 
SUBSCOPE 



FOR UNIT 1 DRIVE READY ON A READ STATUS A FUNCTION 



TST UNITSEL 
BPL 3S 

MOV #33,?RXCS 
JSR PC#SDN 
BR 4$ 

MOV #200, R0 
MOV ?RXDB,P2 
MOV R2,P1 
BIC »BIT6,R1 
CMP R1,P0 
BEQ 3$ 



|WAS UNIT 1 SELECTED 
jNO, GO TO END OF TEST 
jREAD STATUS A FOR DRIVE 1 
IWAIT FOR DONE FLAG 



JEXPECT 



DRY 



TO BE SET 



jCLEAR DD BIT IF ANY 

»IS DRY SET AND INITDONE CLEARED 



fR0 = 200 I Rl = RXDB MINUS DD BIT j P2 » ACTUAL RXDB 
ERROR 



;/»\i/*\i/»\i/«\i/«\t/»\i/»\i/«\:/*\i/#\]/»\i/»\:/«\j/«\i/«\:/»\;/*\j/«\: 
,/»\i/#\i/#\i/»\j/#\i/»\t/#\i/»\j/»\j/#\,/»\i/#\t/*\,/#\,/»\i/»\,/#\,/#\, 
>/*\i/»\i/»\i/*\i/»\i/*\i/#\j/*\i/*\i/*\j/#\j/»\i/»\i/»\:/«\j/»\:/»\j/*\i 

I IF THE FAULT CANNOT BE FOUND ON THE UNIBUS INTERFACE MODULE 
lAND/OB THE FAULT IS NOT INHERENT TO THE UNIBUS INTERFACE MODULE 
}M7846 THERE IS A POSSIBILITY OF ITS EXISTENCE ON THE READ/WRITE 
jMODULE M7727, 
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DZPXBE.Pll TEST U DRIVE READY VEPtFICATION 



SEO 0066 



I 

I NOTEI ONL^ APPPOX, 30% OF THIS MODULE LENT ITSELF CONDUCIVE TO 

> THE FAULT INSERTION PROCESS; ERGO, THE RESOLUTION FOR FAULT 

> ANALYSIS OBTAINABLE BY THIS MODULE IS NOT VERY HIGH, 

f H01»<EVEB, ANALYSIS OF THE FOLLOWING AREA/S, IF THIS ERROP 

I REPORT WAS THE 1ST GIVEN IN A SERIES OF ERRORS, SHOULD AT 

J LEAST PLACE YOU WITHIN THE RELEVANT AREA ON THE MODULE, 
I 

JM7727 (READ/WRITE CONTROL) 
I 

I SIGNAL NAME REASON POSSIBLE CHIPS 



I NOTEt HAKE SURE THE DRIVES ARE CONNECTED CORECTLY.THE 
I DISKETTES INSERTED, AND THE DOORS OF THE SELECTED DRIVES 

I ARE CLOSED. IF THE THESE CONDITIONS ARE NOT SET THERE 

> WILL BE AN ERROR A? THIS POINT, 



ISEL DKl STUCK LO-^ E13rE14 

jDKl INDX STUCK HIGH/LO'a E15 

ISEL INDX STUCK HIGH/LOW E15 

, 'k2' INPUT STUCK LOW E15 



>/j\*/:\»/:\»/:\»/:\*/j\*/|\»/i\#/i\*/j\»/j\#/:\»/»V»/j\»/:\*/i\«/|\»/|\» 

1B95 00441k? t)00004 3S{ SCOPE 

1896 004412 000137 004260 JMR DF.XIT jEND OF T^ST 13 
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1897 
1898 
1899 
1900 

1<»01 

1902 
1903 
1904 
1905 
1906 
1907 
1908 
1 9n9 
1910 
1911 
l^U 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
1920 
1921 
1922 
1923 



004416 
004420 
004422 
0W4426 
004430 
004436 
004440 
004446 
004452 
004454 
004460 
004464 
004466 



005002 
005000 
105737 
100004 
012777 
000403 
012777 
004737 
000406 
012700 
017701 
020001 
001401 



000007 174550 



000027 
005106 



100040 
174522 



174540 



,SBTTL TEST 14 - ERROR FLAG AND B-CODE VERIFICATION PART 1 

;THE PURPOSE OF THIS TEST IS TO VERIFY THAT TRYING TO READ A NQN-LXISTANT 
fSECTOR WILL CAUSE AN ERROR^ AND THE CORRECT ERROR CODE WILL BE PUT 
jINTO THE RXDB WHEN THE b STATUS IS READ, 

jTHlS SECTION INSURES THAT ONLY 2 TR FLAGS WERE REQUIRED TO TAKE THE 
jDISKETTE ADDRESS, AND THAT AN ERROR DOES EXIST, 

T14: CLR R2 
CLP P0 

TSTB UNITSEL 

BPL 10S 

MOV #7,(aRXCS 

BR lis 
10St MOV #27,9PXCS 

US! JSR PCILLADR 

BR IS 

MOV #100040, P0 
MOV PRXCS,R1 
CMP R0,R1 
BEG 2S 



J IS UNIT SELECTED 

ISET HEAD SECTOR FUNCTION AND GO 

{SEND READ FUNCTION TO UNIT I 
I SEND THE BAD SECTOR ADDRESS 
fPREMATUpE ERROR CONDITION 
JEXPECT ERROR AND DONE BITS 
jSAVE THE RXCS 



004470 lk)4000 



JR0 = 100040 > PI = ACTUAL RXCS ; R2 = » OF TR FLAGS 
IS! ERROR 



f /»\J /»\: /»\! /*\| /»\! /»\| /»\J /»\ J /*\: /»\s /*\| /*\5 

j/«\|/#\:/»\!/»\|/»Sl/»\j/«\|/»\l/»\|/*\l/»\l/»\j/»\l/«N|/*\|/«\|/»\|/»\j 

|/»\!/»\j/»\!/»\|/*\s/»Vl/»\l/*\j/#\l/*\»/*\j/»\{/*S|/*\l/*\5/»\l/*\|/*\j 

jTHE FOLLOWING IS A PRESENTATION OF POSSIBLE REASONS AS TO WHY 
jTHIS ERROR REPORT WAS GENERATED, THE INFORMATION SHOWN IS 
jBASED ON FAULT INSERTION RESULTS, AND SHOULD PROVIDE LOGICAL 
jAREAS TO CHECK FOR THE RELEVANT FAULT/S, 
» 

I IF THIS ERROR REPORT WAS THE 1ST GIVEN IN A SERIES OF ERRORS 
lANALYZE THE FOLLOWING AREA/S: 

I 

»M7846 (UNIBUS INTERFACE) 



IBUS D15 
fRX RUN 



1948 
1949 
1950 
1951 
1952 



SIGNAL NAME 



STUCK HIGH 
STUCK LOW 



POSSIBLE CHIPS 



E14»E9,E40,E24 
E41 



>/i\»/i\»/|\»/»\*/j\*/i\*/j\*/i\»/t\»/iS»/:\*/:\«/j\»/t\*/:\»/i\*/:\*/i\* 
f /t\»/i\»/i\*/:\*/j\*/j\»/i\«/i\*/i\»/i\»/i\»/i\»/i\#/j\»/i\»/i\*/:\»/j\* 
»/j\*/i\»/i\#/i\«/j\*/i\*/i\*/i\»/j\»/i\»/:\»/j\*/i\*/j\»/i\»/j\#/t\#/j\» 



004472 104412 



>T14 CONT, - THIS SECTION TESTS THAT 
jON PREVIOUS FUNCTION, 



PARITY OB CRC ERROR OCCURRED 
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SEQ 0068 



1 95 3 


004474 


005000 




CLR R0 


fSTATUS A SHOULD BE CLEAR 


1954 


004476 


017702 


174506 


MOV 9RXDB»H2 




1 955 


004502 


010201 




MOV R2»R1 




1 956 


004504 


042701 


000100 


BIC «BIT6#R1 




1 957 


004510 


020001 




CMP R0,R1 




1958 


00451 2 


001 401 




BEQ 3$ 




1959 












1960 








tR0 a J Rl = PXDB MiNUS DD BIT > R2 


s ACTUAL RXDB 


1961 












1962 


004514 


104000 




ERROR 




1963 


004516 


104412 




381 SUBSCOPE 




1964 












1965 








jT14 CONT, - THIS SECTION TESTS THAT 


NO ERROR CONDITIONS EXIST ON A 


1966 








>READ STATUS B FUNCTION, 




1967 












1968 


004520 


012777 


000017 


174460 MOV «l7#eRXCS 


J SET READ STATUS B FUNCTION 


1969 


004526 


004737 


006574 


4Sj JSH PC, SON 


j»JAlT FOR DONE FLAG 


1970 


004532 


000775 




BR 4S 


1971 


004534 


005777 


174446 


TST §RXCS 


>IS THE ERROR BIT SET 


1972 


004540 


100f^07 




bPh 58 


>N0, GO ON TO NEXT SECTION 


1973 


004542 


01 2700 


000040 


MOV #40, R0 


>yES,SET UP FOR ERROR 


1974 


004546 


017701 


174434 


MOV 0RXCS#R1 




1975 


004552 


017702 


174432 


MOV @RXDB,R2 




1976 












1977 








;R0 = 40 1 Rl = PXCS f R2 = RXDB 




1978 












1979 


004556 


104000 




ERROR 


jRXCS NOT = 40 


1980 


004560 


104412 




58! suescopE 




1981 












1 9B 2 








•Tl4 CONT, " THIS SECTION TESTS THE B 


-CODE FOR " CAN'T FIND SECTOR " 


1983 












1984 


004562 


012700 


000070 


MOV #70, R0 




1985 


004566 


017701 


174416 


MOV 9RXDB,R1 




1986 


004572 


005002 




CLP P2 




1987 


004574 


020001 




CMP P0,P1 


J IS THE B-CODE = 70 


1988 


004576 


001401 




BEQ 6S 




1989 












1990 








jR0 = 70 ! Pi = ACTUAL B-CODE j R2 = 


N/A 


1991 












1992 


004600 


101000 




ERROR 


jRXDri NOT = 70 


1993 













I /#\; /»\! /«\: 

1 /#\!/»\s/»\:/»\!/*\i/*\!/«\j/»\:/»\!/«\:/»\:/»\j/«\i/»\:/«\!/»\i/#\i/«\j 



I IF THE FAULT CANNOT BE VOU>^0 ON THE UNIBUS INTERFACE MODULE 
lAND/OR THK FAULT IS NOT INHERENT TO THE UNIBUS INTERFACE MODULE 
IM7846 THERE IS A POSSIBILITY OF ITS EXISTENCE ON THE REAO/WRlTF 
JMODULE M7727, 

NOTES ONLY APPRCX, 30% OF THIS MODULE LENT ITSELF CONDUCIVE TO 

THE FAULT INSERTION PROCESS? EpGO, THE RESOLUTION FOR FAULT 
ANALYSIS OBTAINABLE BY THIS MODULE Is NOT VERY HIGH, 
HOWEVER, ANALYSIS OF THE FOLLOWING AREA/S, IF THIS ERROR 
REPORT WAS THE 1ST GIVEN IN A SERIES OF ERRORS, SHOULD AT 
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; LEAST PLACE YOU WITHIN THE RELEVANT AREA ON THE MODULE, 

) 

IM7727 (READ/WRITE CONTROL) 



J SIGNAL NAME 


REASON 


POSSIBLE CHIPS 


> 

UNIT 


STUCK HIGH 


E16 


ISEL TRK 


STUCK HIGH 


E15 


IDKI TRK 


STUCK HIGH 


E15 


ISEL DK0 


STUCK LOW 


t.l5,E14,E13 


l»)T GATE 


STUCK HIGH 


E5 


ISEL WT PROT 


STUCK LOh 


E5 


IRAW DATA 


STUCK HIGH /LOW 


E14 


ISTEP 


STUCK LOW 


E14 




REPLACE E4 





I 

f /|\#/l\»/|\»/|\»/l\»/|V»/!\«/!\*/l\*/l\»/j\»/S\#/|\#/|\«/|\»/|\*/!\«/l\» 

i/j\*/i\»/j\*/:\#/j\»/:\#/j\»/i\*/j\»/i\#/}\»/j\»/:\«/i\#/i\#/:\*/i\*/j\# 



2029 004602 000004 68: SCOPE 

2030 004604 000137 004260 JMP DEXIT jEND OF TEST 14 
2031 
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2032 






2033 






2034 






2035 






2036 






2037 






2038 






2039 


004610 


005000 


2040 


004612 


005002 


2041 


004614 


105737 


2042 


004620 


100004 


2043 


004622 


012777 


2044 


004630 


000403 


2045 


004632 


012777 


2046 


004640 


004737 


2047 


004644 


000406 


2049 


00464b 


012700 


2049 


004652 


017701 


2050 


004656 


020001 


2051 


004660 


001401 


2052 






2053 






2054 






2055 


004662 


104000 


2056 


H04664 


104412 


2057 






2058 






2059 






2060 






2061 


004666 


005002 


2062 


004670 


01 2700 


2063 


004674 


017701 


2064 


004700 


020001 


2065 


004702 


001 401 


2066 






2067 






2068 


004704 


1 0400t^ 


2069 


004706 


1 0441 2 


2070 






207 1 






2072 






207 3 


0047 1 « 


012777 


2074 


00471b 


004 7 37 


2075 


004722 


H00775 


2076 


004724 


012700 


2077 


004730 


017701 


2078 


004734 


020001 


2079 


004736 


001401 


2080 






2081 






2082 


004740 


104000 


2083 


004742 


000004 


2084 


004744 


000137 



00fe!035 
005106 



100040 
174330 



174356 
174346 



000100 

174310 



000017 
000574 



000fci70 
174254 



.SBTTL TEST 15 - ERROR FLAG AND B-CODE VERIFICATION pART II 

JTHIS TEST VERIFIES THAT TRYING TO WRITE»USING DELETED DATA MODE, ON A 
jNON-EXiSTANT SECTOR WILL PRODUCE AN ERROR AND THE CORRECT B-CODE IS PRODUCED 
jTHIS SECTION, SENDS OUT AN ILLEGAL SECTOR ADDRESS AND EXPECTS AN ERROR 
; NOTE TEST 14 MUST BE RUN BEFORE THIS TEST 



T15: 



10SI 

list 



CLR R0 
CLR R2 

TSTB UNITSEL 
BPL 10$ 
MOV #15,PRXCS 
BR 11$ 

MOV »35,PRXCS 
JSP PCILLADR 
BP IS 

HOV «iaf»H40,R0 
MOV §HXCS,R1 
CMP P0,P1 
BEG 2S 



jWAS UNIT SELECTED 

{SET WRITE DELETED DATA FUNCTION 

JSEND WTR DD FUNCTION TO UNIT 1 
jSENO THE ILLEGAL SECTOR ADDRESS 
IPREMATURE ERROR CONDITION 
fEXPECT ERROR AND DONE FLAGS 



;P0 s 100040 iRl = ACTUAL RXCS ? R2 » » OF TR FLAGS 

fRXCS NOT = 100040 



IS: 
2Si 



ERROR 
SUbSCOPE 



;T15 CONT, - THIS SECTION TESTS THAT THERE IS NO PARITY, 
;AND THAT THE DELETED DATA BIT IS SET. 



CRC ERROR 



CLR R2 
MOV #100, R0 
MOV PPXDB,R1 
CMP R0,R1 
BEO 3S 



jEXPECT DELETED DATA BIT TO BE SET 



100 I Rl s 
ERROR 
SUBSCOPE 



jDELETED DATA NOT SET OR UTHER ERRORS 



ISET READ STATUS B FUNCTION 
jwiAIT FOR DONE FLAG 



J R0 = 100 I PI = ACTUAL RXDB f H2 = N/A 

3$: 

?T15 CONT, - THIS SECTION TESTS FOR THE B-CODE FOR ILLEGAL SECTOR, 

MOV »17,0RXCS 
4S! JSP PC, SDN 

BR 4S 

MOV #70, R0 
MOV PPXDB,R1 
CMP R0,R1 
BEQ 5S 

! R0 = 70 I Rl = ACTUAL B-CODE ; R2 = N/A 

ERROR ;RXDB NOT = 70 

5S! SCOPE 

JMp DEXIT jEND OF TEST 15 
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2085 








2086 








2087 








2088 








2089 








2090 








2091 








2092 


004750 


005000 




2093 


004752 


005002 




2094 


004754 


105737 


012724 


2095 


004760 


100004 




2096 


004762 


012777 


000005 


2097 


004770 


000403 




2098 


004772 


012777 


000025 


2099 


005000 


004737 


005106 


2100 


005004 


000406 




2101 


005006 


012700 


100040 


2102 


00501 2 


017701 


174170 


2103 


005016 


020001 




2104 


005020 


001401 




2105 








2106 








2107 








2108 


005022 


104000 




2109 


005024 


104412 




2110 








2111 








2112 








2113 


005026 


005002 




2114 


005030 


005000 




2115 


005032 


017701 


174152 


211b 


005036 


020001 




2117 


005040 


001401 




2118 








2119 








2120 


005042 


104000 




2121 


005044 


104412 




2122 








2123 








2124 








2125 


005046 


012777 


000017 


2126 


005054 


004737 


006574 


2127 


005060 


000775 




2128 


005062 


012700 


000070 


2129 


005066 


017701 


174116 


2130 


005072 


020001 




2131 


005074 


001401 




2132 








2133 








2134 


005076 


104000 




2135 


005100 


000004 




2136 


005102 


000137 


004260 



.SBTTL TEST 16 - ERROR FLAG AND B-CODE VERIFICATION PART HI 

JTHIS TEST VERIFIES THAT A WRITE FUNCTION TO A NQ'^J-EX ISTANT SECTOR WILL 
jPRODUCE an ERROR AND A B-CODE OF 70. THE DELETED DATA BIT SHOULD ALSO BE CLEARED 
jTHIS SECTION TRANSFERS AN ILLEGAL SECTOR ADDRESS FOR A WRITE FUNCTION 
; NOTE TEST 14 MUST BE RUN BEFORE THIS TEST 



174216 
174206 



Tib: 



10S: 
us: 



CLR R0 
CLR R2 

TSTB UNITSEL 
BPL 10S 
MOV «S,§RXCS 
BR US 

MOV #25,eRXCS 
JSR PC, ILLADR 
BR 16 

HOV #100040, R0 
HOV giRXCS.Rl 
CMp R0,R1 
BEQ 2S 



fWAS UNIT SELECTED 

jSET THE WRITE FUNCTION 

fSEND WRITK FUNCTION TO UNIT 1 
J SEND THE ILLEGAL ADDRESS 
J PREMATURE ERROR CONDITION 
jEXPECT ERROR AND DONE BITS SET 



is: 

2S{ 



100040 ; Rl = ACTUAL RXCS j R2 = # OF TR FLAGS 



ERPOR 
SUBSCOPE 



:T16 CONT. - TESTS FOR NO PARITY, CRC ERRORS, AND NO DELETED DATA BIT 
CLR R2 

CLR R0 ,N0 BITS SHOULD BE SET IN THE RXDB 

MOV |iRXDB,Rl 
CMP R0,R1 
BEQ 3S 



ISOME BIT IS SET IN THE RXDB 



! R0 = 

3$: 

jT16 CONT, - TEST FOR CORRECT B-CODE FOR ILLEGAL SECTOR ADDRESS 



» Rl = ACTUAL RXDB | P2 = N/A 
ERROR 
SUBSCOPE 



MOV <(17,fJRXCS 
4S: JSR PC#SDN 

BR 4S 

MOV #70, R0 
MOV 0RXDB,R1 
CMP R0,R1 
BEQ 58 

> R0 = 70 I Rl a ACTUAL RXDB f R2 = N/A 

ERROR 
58 J SCOPE 

JMP DEXIT 



J SET READ STATUS B FUNCTION 
jWAIT FOR DONE FLAG 



lis B-CODE s 70 
lYES, CONTINUE 



lEND OF TEST 16 
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2138 ;GENERATE AN ILLEGAL SECTOR ADDRESS 

2139 



2140 


005106 


004737 


006560 


ILLADPI 


JSR PC»STR 


JLOOK FOB A TR FLAG 


2141 


005112 


000402 






BR 2S 


>N0 TR FLAG, IS DONE SET 


2142 


005114 


005202 






INC B2 


fTR FLAG COUNTER 


2143 


005116 


000404 






BR 3S 




2144 


005120 


004737 


006574 


2$! 


JSR PC, SDN 


jLOOK FOR DONE FLAG 


2145 


005124 


000770 






BR ILLADP 


|NOT DONE RECHECK TR FLAG 


2146 


005126 


000430 






BR 18 


JDONE IS SET TOO EARLY GO TU EBROB 


2147 


005130 


005^77 


174054 


3St 


CLB gRXDB 


j0 SECTOR ADDBESS (ILLEGAL) 


2148 


005134 


004737 


006560 


7SJ 


JSP PCSTR 


I LOOK FOB SECOND TR FLAG 


2149 


005140 


000402 






BR 5$ 


jNOT TR, IS IT DONE 


2150 


005142 


005202 






INC R2 


2151 


005144 


000404 






BR 6$ 


jTR FLAG SEND TBACK ADDRESS 


2152 


005146 


004737 


006574 


5SJ 


JSR PC, SDN 


jLOOK FOR DONE FLAG 


2153 


005152 


000770 






BR 7S 


;NOT DONE, RECHECK TR FLAG 


2154 


005154 


000415 






BR 1$ 


jDONE TOO SOON GO TO ERROH 


2155 


005156 


005077 


174026 


6S i 


CLR &RXDB 


jSEND TBACK ADDRESS OF 


2156 


005162 


004737 


006560 


11$: 


JSR PC, STB 


jABE THEbE any MOBE TR FLAGS 


2157 


005166 


000402 






BR 10S 


JNO, LOOK FOR DONE 


2158 


005170 


005202 






INC P2 


lYES 


2159 


005172 


000406 






BR IS 


ITOO MANY TR FLAGS OB MICROCONTROLLER 


2160 












fDlD NOT DETECT THE EBBOB 


2161 


005174 


004737 


006574 


10S J 


JSR PC, SDN 


fLOOK FOR DONE FLAG 


2162 


005200 


000770 






BR US 


J NOT DONE RETEST TR FLAG 


2163 


005202 


062716 


000002 




ADO #2,iaSP 




2164 


005206 


000207 




4s: 


RTS PC 




2165 


005210 


017701 


173772 


1$: 


MOV PRXCS,Pl 




2166 


005214 


000774 






BR 4S 
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2167 








2168 








2169 








2170 








2171 








2172 








2173 


005216 


005002 




2174 


005220 


005000 




2175 


005222 


012777 


000007 


2176 


005230 


004737 


006560 


2177 


005234 


000401 




2178 


005236 


000410 




2179 


005240 


004737 


006574 


2180 


005244 


000771 




2181 


005246 


017701 


173734 


2182 


005252 


017702 


173732 


2183 


005256 


000433 




2184 


005260 


012777 


000001 


2185 


005266 


004737 


006560 


2186 


005272 


000401 




2187 


005274 


000410 




2188 


005276 


004737 


006574 


2189 


005302 


000771 




2190 


005304 


017701 


173676 


2191 


005310 


017702 


173674 


2192 


005314 


000414 




2193 


005316 


012777 


000U5 


2194 


005324 


004737 


006574 


2195 


005330 


000775 




2196 


005332 


012700 


100040 


2197 


005336 


017701 


173644 


2198 


005342 


020001 




2199 


005344 


001401 




2200 








2201 








2202 








2203 








2204 








2205 


005346 


104000 




2206 









JSET READ FUNCTION 

jLOOK FOR TR FLAG 

|N0 TR FLAG CHECK DONE 



jDONE OCCURRED TOO SOON SET UP FOR ERROR 



,5BTTL TEST 17 - ILLEGAL TRACK ERROR VERIFICATION 

;THIS TEST VEPIFIES THAT IF A TRACK ADDRESS LARGER THAN 114 (OCTAL) IS 
;ACCESSED, AN ERROR CONDITION WILL EXIST, AND A B-CODE WILL = 40 

T17! CLB P2 
CLB R0 

MOV »7,0RXCS 
3S: JSR PCSTR 

BR IS 

BP 2S 
ISJ JSB PCSDN 

BP 3S 

MOV eRXCS,Rl 
MOV ePXDB,R2 
BR 4S 

2$: MOV #1,0RXDB 

5S{ JSB PCSTR 

BR 6$ 

BB 7$ 
6$: JSK PCSDN 

BR 5S 

MOV §BXC5,B1 
MOV eBXDB,B2 
BB 45 

7Sl MOV #115,?RXDB 

10SI JSB PCSDN 
BB 10S 

MOV #100040, R0 
MOV eRXCS,Bl 
CMP B0,B1 
BEQ US 



jSEND LEGAL SECTOR ADDRESS 
jLOOK FOR TR FLAG 



IDONE SET TOO EARLY 



jSEND ILLEGAL TRACK ADDRESS 
;WAIT FOR DONE ON THE EBBOR 



JEXPECT EBPOB AND DONE SET 



fTWO ERROR CONDITIONS TO REPORT 

|IF R0 s THEN PI 3 RXCS }B2 a RXDB ON A DONE TOO SOON EBBOB 
I IF B0 a 100040 THEN Bl s ACTUAL RXCS | B2 = N/A 



iDONE SET TOO SOON OR NO EBROR OCCURRED 



j/#\i/#\i/«\i/#\j/»\i/«\i/»\:/*\i/»\i/#\i/#\i/#\i/#\i/#\j/»\i/#\i/*\,/#\t 
i/#\i/»\i/»\i/*\i/»\t/*\i/#Si/«\:/#\j/*\:/*\i/*\i/#\i/#\i/*\:/#\i/«\:/#\: 
j/#\i/*\i/»\i/»\j/»\i/#\t/*\i/*\:/*\i/#\j/*\i/»\j/#\j/*\i/#\:/*\t/»\:/*\j 

ITHE FOLLOWING IS A PBESENlATlON OF POSSIBLE BEAsONS AS TO WHY 
ITHIS EBROR REPORT WAS GENERATED, THE INFORMATION SHOWN IS 
jBASED ON FAULT INSERTION RESULTS, AND SHOULD PROVIDE LOGICAL 
jAREAS TO CHECK FOR THE RELEVANT FAULT/S, 
I 

IIP THIS ERROR REPORT WAS THE 1ST GIVEN IN A SERIES OF ERRORS 
»ANALYZE THE FOLLOWING AREA/Sl 

I 

IM7846 (UNIBUS INTERFACE) 



SIGNAL NAME 



POSSIBLE CHIPS 
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SEO 0074 



I 

, .-,.«-«-.. INT ENB FLOP CLOCK LOCKED HIGH E40 

I 

|/l\»/l\»/5\»/|\*/lV»/lV«''jX*/|S»/|\*/!\»/!\*/S\*/:\»/!\*/l\*/|\*/5\*/s\» 

;/j\*/j\*/iS*/i\»/i\»/!S*/:\»/{\»/i\»/s\»/i\»/:\»/s\»/i\*/j\»/t\»/i\*/5\» 



223H 


005350 


104412 




IIS! 


SUBSCOPC 


223 1 












2232 








;T17 


CONT. - TEST THAT THEHE WERE NO OTHER ERRORS THAN THE ILLEGAL TRACK ERROR 


2233 








J AND 


THAT THE DELETED DATA BIT WAS CLEARED BY TEsT 16, 


2234 












2235 


005352 


005000 






CLR R0 ;DD BIT CLEARED IN TEST 16 SO RXDB a 


2236 


005354 


005002 






CLR P2 


2237 


005356 


017701 


173626 




MOV pRXDB^Rl 


2238 


005362 


020001 






CMP R0,R1 


2239 


005364 


001401 






BEQ 12S 


2240 












2241 








t R0 


= ; Rl = ACTUAL RXDB j R2 = N/A 


2242 












2243 


005366 


1 1(^4000 






ERROR 


2244 


005370 


104412 




12Si 


SUBSCUPE 


2245 












2246 








jTi7 


CONT, - VLRIFIES THAT READ STATUS B HAS NO ERRORS 


2247 












2248 


005372 


012777 


00001 7 


173606 


HOV »17,PRXCS ;SET READ STATUS R FUNCTION 


2249 


005400 


304737 


006574 


13$l 


JSR PC, SDN ;WAIT FOR DONE FLAG 


2250 


005404 


000775 






BR US 


2251 


005406 


005777 


173574 




TST PRXCS ;WAS THERE AN ERROR ON THIS FUNCTION 


2252 


005412 


100007 






BPL 14S jNO 


2253 


005414 


012700 


000040 




MOV »40,R0 


2254 


005420 


017 701 


173562 




MOV PRXCS.Pl 


2255 


005424 


017702 


173560 




MOV pPXnB,P2 


2256 












2257 








! P0 


= 40 (DONE) J PI = ACTUAL RXCS f R2 = ACTUAL RXDB 


2258 












2259 


005430 


104000 






ERROR {THERE WAS AN ERROR NO READ STATUS B 


2260 


005432 


104412 




14SI 


SU65C0PE 


2261 


005434 


005002 






CLR R2 


2262 


005436 


012700 


000040 




MOV »40,P0 ;B-C00E FOR ILLEGAL TRACK ADDRESS 


2263 


005442 


017701 


173542 




MOV BRXDB,R1 


2264 


005446 


020001 






CMP P0,P1 


2265 


W05450 


01-/1 401 






BEU 15S jB-CDDE IS CORRECT 


2266 












2267 








J P0 


= 40 I Rl = ACTUAL B-CODE J P2 = N/A 


2268 












2269 


005452 


1 04000 






ERROR 


2270 


005454 


000004 




15S: 


SCUPt 


227 1 


005456 


0001 37 


004260 




JMp DEXIT ;END OF TEST 17 
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2272 
2273 
2274 
2275 
2276 
2277 
2278 
2279 
2280 
2281 
2262 



.SBTTL TEST 20 - SEEK VERIFICATION VIA READ FUNCTION 
; THE PURPOSE OF THIS TEST IS TO DO A READ FUNCTION ON ALL 

jSECTORS OF VARIOUS TRACKS ON THE DISKETTE, THIS WILL TEST FOR SEEK ERRORS 
;FOP THOSE TRACK POSITIONS, UNLESS OTHERWISE SELECTED (IN OD/ID) THE TRACKS 
.•ACCESSED ARE (OP), 52, 53 (BOTH SIDES OF THE WRITE CURRENT CHANGE), AND 114 



I /»\ J /»V! /»\; /»\! /♦Si /»\| /»\ J /»\s /»\| /*\| /»\; /»\. /»\} /»\} /»\ j /#\. /»\. 

J /»\ : /»\ : /*\ I /»\| /#\:/»\t/»\:/#\t/*\:/»\i/»\:/»\|/*\|/»\j/#\i/*\:/»\j 



> 

JIF THE DIAGNOSTIC GIVES AN ERROR REPORT WITH A FORMAT OF 
I 'TEST PCs' WHERE THE 'PC IS WITHIN THE RANGE OF THIS TEST 
JTHEN THE POSSIBLE CHIPS VERSUS THE 'B' CODE (INTERPRETIVE 
JEPROR CODE) PRINTED ARE AS FOLLOWS} 
I 

IF 



CODE WAS 

120 
150 
200 



POSSIBLE CHIPS 
E5,E6 

E13,E14,E16,E17 
E5,E6 



/:\»/i\»/j\»/i\»/:\*/j\»/:\*/i\»/:\»/i\»/t\*/i\«/i\»/:\»/i\»/j\»/i\*/j\# 



2304 


005462 


013702 


001204 






MOV KRXVEC,R2 


2305 


005466 


012722 


011526 






MOV »INTSERV, (R2)+ 


2306 


005472 


012722 


000340 






MOV »PR7,(R2)* 


2307 


005476 


004737 


006762 






JSP PCRDONLY 


2308 


005502 


000137 


004260 






JMP DEXIT 


2309 














2310 














2311 












.SBTTL TEST 21 » WRITE TEST 


2312 














2313 










1 THE 


PURPOSE OF THIS TEST IS TO WRITE ALL ONES 


2314 










1 AND 


VERIFY THAT THE DATA IN THE SECTOR BUFFER 


2315 














2316 


005506 


012737 


000001 


013126 


T21 J 


MOV #1, TARGET 


2317 


005514 


012737 


000001 


013416 




MOV »l,TSECTOR 


2318 


005522 


004737 


012634 






JSR PCGETUNIT 


2319 


005526 


012737 


000001 


012324 




MOV »1#PAT 


2320 


005534 


004737 


012260 






JSR PCGETPATTERN 


2321 


00S540 


004737 


010766 






JSR PCADJSUM 


2322 


005544 


005002 








CLR B2 


2323 


00S546 


012777 


000001 


173432 




MOV »1,?RXCS 


2324 


005554 


004737 


004064 




l$l 


JSR PCfFBEB 


2325 


005560 


000404 








BR 2S 


2326 


005562 


112077 


173422 






MOVE {R0)+,9RXDB 


2327 


005566 


005202 








INC B2 



I SET UP INTERRUPT ADDRESSES 



|D0 THE READ FUNCTION 
lEND OF TEST 20 



I TRACK I, 



,SET CHECK SUM VALUES 
»SET FILL BUFFER FUNCTION 
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2328 005570 000771 

2329 005572 012737 000^05 

2330 005600 004737 005610 

2331 005604 000137 004260 
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007702 2Sl 



BR 16 

MOV »5, FUNCTION 
JSR PC,T21X 
JMP DEXIT 



ISET WRITE FUNCTION 
|G0 ISSUE THE COMMAND 
|END OF TEST 21 
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RX8E 


Pll 


TEST 21 


- WRITE 


2332 


005610 


004737 


007634 


2333 


005614 


004737 


006574 


2334 


005620 


000775 




2335 


005622 


005777 


173360 


2336 


005626 


10001 3 




2337 


005630 


017701 


173354 


2338 


005634 


012777 


000017 


2339 


005642 


004737 


006574 


2340 


005646 


000775 




2341 


005650 


017702 


173334 


2342 








2343 








2344 








2345 


005654 


104000 




2346 









T21X: 
3SI 



JSB PC#COMMWORD 
JSR PC#SDN 
BR 3S 
TST lapXCS 
BPL 4S 

MOV aPXDBfRl 
MOV »l7,fJRXCS 
JSP PCfSDN 
BR 5$ 

MOV 3RXDB,R2 



jIS THE ERROR BIT SET 

>N0 ERRORS 

jSAVE STATUS A 

jSET READ STATUS B FUNCTION 



jSAVE STATUS B 



|P0 = ADDR OF LAST DATA BYTE J Rl = STATUS A I R2 = STATUS B 



I /»\!/»\j/»\j/»\|/»\:/»\:/»\j/«\j/*\j/«\j/»\:/»\:/»\:/*\:/»\:/»\t/«\:/»\: 

I /#\ J /»\J /*\J /*\t /»\f /*\| /»\J /*\ J /*\J /«\t /*\! 

I /»N J /#\: /#\s /*\{ /#\ J 

I IF THE FAULT CANNOT BE FOUND ON THE UNIBUS INTERFACE MODULE 
|AND/OP THE FAULT IS NOT INHERENT TO THE UNIBUS INTERFACE MODULE 
|M7946 THERE IS A POSSIBILITY OF ITS EXISTENCE ON THE READ/WRITE 
fMODULE M7727. 

NOTEl ONLY APPROX, 30% OF THIS MODULE LENT ITSELF CONDUCIVE TO 

THE FAULT INSERTION PROCESS? ERGO, THE RESOLUTION FOR FAULT 
ANALYSIS OBTAINABLE BY THIS MODULE Is NOT VERY HIGH, 
HOWEVER, ANALYSIS OF THE FOLLOWING AREA/S» IF THIS ERROR 
REPORT WAS THE 1ST GIVEN IN A SERIES OF ERRORS, SHOULD AT 
LEAST PLACE YOU WITHIN THE RELEVANT AREA ON THE MODULE, 



M7727 (READ/WRITE CONTROL) 
SIGNAL NAME 



WT DATA 
WT GATE 



STUCK LOW/HIGH 
STUCK LOW 



POSSIBLE CHIPS 



E5 
E13 



/|\»/|\»/l\»/|\»/l\»/j\»/|S»/l\»/j\»/l\«/jS«/l\»/|\»/|\»/|\*/} V»/l\»/l\» 
V»/j\»/j\»/i\#/»\*/j\»/i\»/|\»/:\*/|\*/i\*/i\» 



2375 


005656 


104412 


4S: 


SUBSCOPE 


2376 


005660 


005000 




CLR R0 


2377 


005662 


005001 




CLP Rl 


2378 


005664 


004737 004152 




JSR PC,T7EMPTY 


2379 


005670 


000207 




RTS PC 



jEMPTY BUFFER AND CHECK CONTENTS 
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2 380 








2 381 








2382 
















2 384 
























2387 










005672 


105737 


0127 24 


2 389 


005676 


1 00022 




2390 


005700 


005037 


012324 


2391 


005704 


0047 37 


004026 


2392 


0057 1 


005237 


012324 


2393 


0057 1 4 


004737 


012260 


2394 


005720 


004737 


010766 


2395 


005724 


052777 


04000 1 


2396 


005732 


0047 37 


006574 


2397 


005736 


000775 




2 398 


0057 40 


0047 37 


004 1 52 


2399 


005744 


0001 37 


004260 


2400 








2401 








2402 








2403 








2404 








2405 








2406 








2407 


005750 


005037 


012324 


2408 


005754 


004737 


004026 


2409 


005760 


005237 


012324 


2410 


005764 


004737 


01 2634 


2411 


005770 


004737 


012260 


2412 


005774 


004737 


010766 


2413 


006000 


012737 


000007 


2414 


006006 


004737 


005bl0 


2415 


006012 


0001 37 


004260 



.SUTTL TEST 22 - INITIALIZE IMPLIED BEAD 

;AFTER PREVIOUSLY WRITING A PATTERN ON SECTOR 1 TRACK l, THIS TEST 

ICHANGES THE CONTENTS OF THE SECTOR BUFFER AND DOES A PROGRAMMED INITIALIZE, 

jAFTER WHICH THE SECTOR BUFFER MUST AGAIN CONTAIN THE DATA PREVIOUSLY 
IWPITTEN ON THAT SECTOR AND TRACK, 

jNOTE! THIS TEST WILL ONLY WORK IF UNIT IS SELECTED AND ON LINE, 



TSTB UNITSEL 

BPL 2$ 

CLR PAT 

JSR PC»T6FILL 

INC PAT 

JSR PCfGETPATTERN 
JSR PCAOJSUM 
BIS «PECAL,aRXCS 
JSR PC, SDN 
BR IS 

JSR PC,T7EMPTY 
JMP DEXIT 



.SBTTL TEST 23 - READ TEST 



IIF UNIT IS NOT SELECTED SKIP THIS TEST 



jLOAD THE SECTOR BUFFER WITH 
, RELOAD CORE BUFFER WITH I'S 



fSET THE INIT, BIT 



fEMPTY THE SECTOR BUFFER AND CHECK IT, 
jEND OF TEST 22 



JTHIS TEST VERIFIES THAT A READ FUNCTION DOES IN FACT LOAD THE SECTOR 
JBUFFEH WITH DATA READ FROM THE SELECTED ADDRESS, 



CLR PAT 

JSR PC,T6FILL 

INC PAT 

JSR PCiGETUNiT 
JSh PCGETpAXTtRN 
JSR PC»ADJSUM 
MOV #7, FUNCTION 
JSR PC,T21X 
JMP DEXIT 



jLOAD SECTOR BUFFER WITH 0'S 



IRELOAD CORE BUFFER WITH I'S 
|SeT UP FOP CHECK SUM 
fSET READ FUNCTION AND GO 

jISSUE COMMAND, WAIT FOR DONE,s, TEST DATA 
lEND OF TEST 23 
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2416 








2417 








2418 








2419 








2420 








2421 








2422 








2423 


006016 


012737 


000002 


2424 


006024 


013702 


001204 


2425 


006030 


012722 


011526 


2426 


006034 


012712 


000340 


2427 


006040 


004737 


00701 2 


2428 


006044 


0001 37 


004260 


2429 








2430 








2431 








2432 








2433 








2434 








2435 








2436 


006050 


012737 


00000 3 


2437 


006056 


000137 


006024 


2438 








2439 








2440 








2441 








2442 








2443 








2444 








2445 








2446 








2447 


006062 


052737 


000200 


2448 


006070 


012737 


000007 


2449 


006076 


013702 


001204 


2450 


006102 


012722 


011526 


2451 


P06106 


012712 


000340 


2452 


0061 12 


004737 


007066 


2453 


0061 16 


042737 


000200 


2454 


006124 


000137 


004260 



013136 
012324 



.SBTTL TEST 24 - DATA TRANSFER AND VERIFICATION 

;THE PURPOSE OF THIS TEST IS TO WRITE THEN READ AND VERIFY DATA 
;0N ALL SECTORS OF THE SELECTED TRACKS. THE TEST ALTERNATES BETWEEN 
jDRlVES ON THE SELECTED TRACKS, DATA PATTERN IS A FLOATING 0, 



T24! 
T24X! 



MOV #2, PAT 
MOV KRXVEC,R2 
MOV f INTSERV, (R2)+ 
MOV !(PP7,(R2) 
JSR PCDRVSWP 
JMP DEXIT 



jSET DATA PATTERN TO FLOATING 
JSET INTERRUPT ADDRESSES 



jGO TRANSFER THE DATA 
fEf^D OF TEST 24 OR 25 



.SBTTL TEST 25 - DATA TRANSFER AND VERIFICATION VIA DELETED DATA MODE 

;THIS TEST TRANsFErES DATA JUST LIKE TEST 24 EXCEPT IT USES THE 
;DELETED DATA FORMAT AND A DATA PATTERN OF FLOATING 1, 



MOV #3, PAT 
JMP T24X 



, SBTTL TEST 26 - HEAD "HOME" TEST 



|SET DATA PATTERN TO FLOATING 1 
jGO TRANSFER THE DATA 



ITHIS TEST MOVES THE HEAD OUT TO TRACK 12 (OCTAL) AND THEN WRiTES/READ CHECKS 
;ALL SECTORS (RANDOM DATA) ON EACH TRACK, THE TRACK SEQUENCE 
lis DECREMENTj>ED BACK TO TRACK (HOME), AFTER COMPLETING 
JDRIVE IT SWITCHES OVER TO DRIVE 1 DOING THE SAME TEST, 



BIS »BIT7,SEQUEN 
MOV S7,PAT 
MOV KRXVEC,P2 
MOV JtlNTSERV, (R2) + 
MOV »PR7,(R2) 
JSR PCWTRDCK 
BIC #BIT7,SEQUEN 
JMP DEXIT 



jSPECIAL DECREMENT SEQUENCE 
jSELECT RANDOM DATA 



|END OF TEST 26 
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2455 






2456 






2457 






2458 






2459 


006130 


104400 


2460 






2461 


006134 


012646 


2462 






2463 


0061 36 


104402 


2464 


006140 


006 


2465 


006141 


000 


2466 


006142 


104400 


2467 


006146 


012716 


2468 






2469 


006152 


000002 


2470 






2471 






2472 






2473 






2474 






2475 


006154 


104400 


2476 






2477 






2479 


006160 


012646 


2479 






2480 


006162 


104402 


2481 


006164 


006 


2482 


006165 


000 


2463 


006166 


104400 


2484 


006172 


012716 


2485 






2486 


006176 


000002 


2487 






2488 






2489 






2490 






2491 


006200 


01 3700 


2492 






2493 


006204 


105701 


2494 






2495 


006206 


1 00401 


2496 


006210 


005300 


2497 






2498 


006212 


006 )00 


2499 


006214 


006300 


2500 


006216 


006300 


2501 


006220 


k!)v?6300 


2502 


006222 


006 300 


2503 


006224 


04270;? 


2504 






2505 


006230 


000207 


2506 







ITHE FOLLOWING SECTION OF CODE WILL ALLOW PROVIDING INFORMATION 
ITO THE USER WHEN AN 'UNEXPECTED' BUS TIMEOUT TO LOCATION 4 OCCURS 



BUSERRS TYPE* 



MOV 



017047 
002466 



TYPOS 
.BYTE 
.BYTE 
TYPE, 
MOV 

RTI 



(SP)+,-(SP) 



PCM 

#ReBeGIN, (SP) 



JTYPE MESSAGE INDICATING AN 
^UNEXPECTED BUS TIMEOUT OCCURRED 
nSAVE CSP)+ FOR TYPEOUT 

nSETUP TO TYPE pC WHERE TIMEOUT OCCURRED 
>fGO TYPE--OCTAL ASCII 
llTYPE 6 DIGITS 
nSUPPRESS LEADING ZEROS 

jTYPE MESSAGE '=PC' 

jSET RETURN 'PC TO START THE 

jPROGRAM OVER AGAIN 

IRETURN TO BEGINNING OF PROGRAM 



;THE FOLLOWING SECTION OF CODE WILL ALLOW PROVIDING INFORMATION 

>T0 THE USER WHEN AN 'UNEXPECTED' RESERVED INSTRUCTION TRAp TO LOCATION 

1 10 OCCURS 



PESERRJ TYPE, LOC10M 



017047 
002466 



MOV 

TYPOS 
.BYTE 
.BYTE 
TYPE, 

MOV 

RTI 



(SP)+,-(SPJ 



PCM 

SREBEGIN, CSP) 



jTYPE MESSAGE INDICATING AN 
jUNEXPECtED RESERVED INSTRUCTION 
JTRAP OCCURRED 
fiSAVE CSP)+ FOR TYPEOUT 

jjSETUP TO TYPE pC WHERE RESERVED TRAP OCCURRED 

. ,G0 TYPE — OCTAL ASCII 

J jTYPE 6 DIGITS 

; {SUPPRESS LEADING ZEROS 

iTYPE MESSAGE '=PC' 

jSET RETURN 'PC' TO START THE 

jPROGRAM Over again 

jRETURN to BEGINNING OF PROGRAM 



jTHIS ROUTINE WILL CALCULATE THE PRIORITY LEVgL FOR THE PROCESSOR 

jBASEP ON THE CURRENT PRIORITY LEVEL OF THE DEVICE (CONTENTS OF 'BRLEV:') 



MOV 


BPLEV,R0 


;GET THE PROPOSED RXli DEVICE 
lINTERRUpr PRIORITY LEVEL VALUE 


TSTP 


Rl 


|IS CPU LEVEL TO BE THE SAME AS 
,'THE DEVICE LEVEL OR 1 LESS? 


BMI 


IS 


jBRANCH IF SAME AS} 


DEC 


R0 


jDROp DEVICE LEVEL PRIORITY 
}BY 1 LEVEL FOR PSW 


ASL 


R0 


{FORM BITS <7-5> FOR PSW 


ASL 


R0 


; . 


ASL 


R0 


; 


ASL 


R0 


; . 


ASL 


R0 


1 


BIC 


#37, P0 


JENSURE THAT T,N,Z,V, L C BITS 
jFOR THE PROCESSOR ARE CLEAR 


RTS 


PC 


IRETURN TO MAINLINE CODE 



MAlNDEC-1 1 -DZRXB-E MACYU 27(732) 16-MAR-7b 15:55 PAGE 56 

DZPXBE.PU " ERROR " TRAP SEPVICE ROUTINE 



2507 
2508 
2509 
2510 
2511 
2512 
2513 
2514 
2515 
2516 
2517 
2518 
2519 
2520 
2521 
2522 
2523 
2524 
2525 
2526 
2527 
2528 
2529 
2530 
2531 
2532 
2533 
2534 
2535 
2536 
2537 
2538 
2539 
2540 
2541 
2542 
2543 
2544 
2545 
2546 
2547 
2548 
2549 
2550 
2551 
2552 
2353 
2554 
2555 
2556 
2557 



006232 
00623b 
006244 
006250 



006252 
006254 
006262 
006264 
006270 
006276 



006304 
006310 
006312 
006316 
006320 
006322 
006323 
006324 
006330 
006334 
006336 
006342 
006346 
006350 
006354 
006356 
006360 
006364 
006366 
006370 
006374 
006376 



006412 
006416 



011637 
062737 
005237 
001775 



104405 
032777 
001056 
005037 
032737 
001002 
104400 

104400 
011604 
162704 
010446 
104402 
006 
001 
104400 
013746 
104403 
104400 
013746 
104403 
104400 
010246 
104403 
104400 
010046 
104403 
104400 
010146 
104403 
104400 
013737 
004537 



002526 
000400 



015636 
016120 



01664] 
002532 

016641 
006556 

016641 
016641 
016641 



016641 
002530 
015600 



.SBTTL " ERROR " TRAP SERVICE ROUTINE 



006474 
000002 
006472 



020000 172734 



XERROP: MOV P SP, epcscope 
ADD #2, EPCSCOPE 

INCERRORS! INC ERRORS 
6E0 INCERRORS 



; RETURN ADDHESS FROM « EHPUR" 
f NOW (EpCSCOPE) = SUBSCOPE+2, 



OH SCOPE+2 



; DATA SW 13 = TO PRINT APPROPRIATE ERROR MESSAGE 



CKSWR 

BIT »SW13,!aSWR 

BNE NOPRINT 

CLR CCOUNT 

BIT #BIT8,UNITSEL 

BNE IS 

TYPE, MXEHEADER 



TYPE, MCRLF 
MOV e SP, P4 
SUB 42, R4 
MOV R4, -(SP) 
TYPOS 
.BYTE 6 
.BYTE I 
TYPE, SPACE 
MOV FAST, -(SP) 
TYPON 

TYPE, SPACE 

MOV PCSCOPE, -(SP) 

TYpON 

TYPE, SPACE 
MOV R2» -(SP) 
TYPON 

TYPE, SPACE 
MOV R0, -(SP) 
TYPON 

TYPE, SPACE 
MOV Rl, -(SP) 
TYPON 

TYPE, SPACE 
MOV PA5S,2S 
JSR R5,SGLDEC 
OPEN 



jWAS PREVIOUS ERROR REPORTED ON THIS PASS 

I ERADR 

I FAST (FIRST ADDRESS OF SELECTED TEST) 

J FAPT (FIRST ADDRESS OF PRESENT TEST) 

! BLANK 

I EXPECTED (GOOD) RESULT OF TEST 

> ACTUAL (BAD) RESULT OF TEST 



MAINDEC»ll-DZRX8»E 



MACYl I 27(732) 16-MAR-7b 



ZRXBE , 


iPi 1 


" ERROR 


" TRAP 


SEPV ICE 


ROUTINE 


2558 










1 DATA SW s TO RING BELL AT ERROR 


2559 












2560 


006 420 


0527 37 


000400 


012724 


NOPRINT" BIS # B ITS » UN ITSEL 


2561 


006 426 


0047 37 


006450 




JSR PC#DING 


2562 












2563 










J DATA SI* 15 = I TO HALT AT ERROR 


2564 












2565 


006432 


104405 






ISl CK5WR 


2566 


006434 


0327 77 


100000 


172554 


BIT #SW15#3SWR 


2567 


006442 


001 401 






BEQ 2$ 


2568 


006444 


000000 






HALT 


2569 


006446 


000002 






2Sl PTI 


2570 












2571 


006450 


1 04405 






DINGl CKSWR 


2572 


006452 


032777 


000001 


172536 


BIT SSi«l0|3SWR 


2573 


00646,^ 


001002 






bHK IS 


2574 


006462 


104400 


006470 




TYPE ,HAbELL 


2575 


006466 


000207 






ISJ RTS PC 


2576 












2577 


006470 


000007 






mabell: .asciz <07> 


2578 










.EVEN 


2579 












2580 


006472 


000000 






EPRORSI 


2581 


006474 


000000 






EPC SCOPE! 



ISET HARD ERROR FLAG 
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2582 








.SBTTL " SCOPE " TRAP SERVICE ROUTINE 


2583 










2584 








" SCOPE " 


2585 










2586 


006476 


005737 


006472 


XSCOPE! TST ERRORS 


2587 


006502 


001015 




BtJf SCOPING 


2588 










2589 








J NO ERRORS HAVE BEEN DETECTED 


2590 










2591 








? JUST SET CPCSCOPE) = FIRST ADDRESS OF THE SCOPE LOOP 


2592 










2593 








; (In CASE ERRORS ARE DETECTED LATER) 


2594 










2595 


006504 


005037 


006472 


NOSCOPE! CLR ERRORS 


2596 


006510 


011637 


006556 


MOV SP, PCSCOPE 


2597 


006514 


000002 




RTI 


2598 










2599 








" SUBSCOPE " 


2600 










2601 


006516 


005737 


006472 


XSUBSCOPE! TST ERRORS 


2602 


006522 


001001 




BNE IS 


2603 


006524 


000002 




RTI J NO ERRORS EXIST 


2604 










2605 








} ERRORS DO EXIST 


2606 










2607 








; IF THIS ERROp ADDRESS IS THE SAME ADDRESS WlTHIN ppOGRAM LOCATION 


2606 










2609 








; THEN THIS IS A SCOPING LOOP 


2610 










2611 








J IF NOT - THEN EXIT 


2612 










2613 


006526 


021637 


006474 


IS: CMP (a 5P, EPCSCOPE 


2614 


006532 


001401 




BEO SCOPING 


2615 


006534 


000002 




PTI 


2616 










2617 








; SW Jl = 1 TO LOCK ON SCOPING LOOP 


2618 










2619 








J THIS IS A SCOPING LOOP 


2620 










2621 


006536 


104405 




SCOPINGI CKS»nR 


2622 


006540 


032777 


004000 


172450 BIT »SW11,§SWR 


2623 


006546 


001756 




BEQ NOSCOPE jDO NOT LOOP ON ERROR 


2624 


006550 


013716 


006556 


MOV PCSCOPE# § SP 


2625 


006554 


000002 




RTI J LOCK FOR SCOPE LOOP 


2626 


006556 


000000 




PCSCOPEi 
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&EQ 01084 



2627 










J WA I T 


FOR TRANSFER REQUEST 


FLAG 


TO SET 


2628 


















2629 


tPXJX} JQV 


105777 


17 2 422 




STR t 








2630 


006564 


1 00002 








BPL RTSPC 






2631 


006566 


0627 1 6 


000002 






ADD S7. a fiP 




7 KUsJXJOi rv/K c> A Jl X 


2632 


006572 


000207 






PTSPCJ 


RTS PC 






263 3 


















2634 










f WAIT 


FOR THE DONE FLAG TO 


SET 






















2636 


006574 


032777 


000040 


1 72404 


SDN J 


BIT «H1T5» $ RXCS 






2637 


006602 


001055 








BNE XSDN 






2638 


006604 


062737 


000001 


006756 




ADD »l, HANGER 






2639 


006612 


005537 


006760 






ADC HANGPL 






2640 


006616 


001401 








bEO HUNGUP 






264i 


006620 


000207 








RTS PC 






2642 


















2643 










; THE DEVICE TEST IS HUNG - 


DONE 


HAS NOT SET 


2644 


















2645 










; (R0) 


a N/A > (PI) = N/A > 


(R2) 


= N/A 


2646 


















2647 


006622 


104000 






HUNGUP! 


ERROR 







|/»\j/»\l/#\|/*\j/»\|/*\|/»\j/»\j/*\j/»\!/»\j/»\|/»\j/#\j/»\|/»\|/#S./»\| 

I 

I IF THE DIAGNOSTIC HITS THIS ERROR REPORT AND THE 'HUNG 9 PC' 

I LOCATION Is WITHIN ONE OF THE TESTS TABULATED BELOW THEM THE 

I POSSIBLE CHIPS ARE AS FOLLOrtSs 



I 

HUNG la TEST 



POSSIBLE CHIPS 



I TEST 
i TEST 
I TEST 



5 ( PART 1 
5 ( PART 2 
6 



£7,E34,E4,E22»tl5f El#Ell,E37 

E7,E34,E2,fcl4»t6.El,E37,E8 

E4,F15.E1,E19,E18,E22 



>/i\»/:\»/:\*/:\*/i\*/:\»/:\*/;\«/:\»/:\*/:\#/:\#/j\»/:\#/:\*/:\»/t\»/j\* 

»/!\»/j\»/!\»/j\»/!\»/j\«/iS»/:\*/:\»/!\»/:\«/j \»/j\»/j\»/j\#/i\*/.\#/sS# 



2667 














2668 


006624 


005037 


006756 






CLR HANGER 


2669 


006630 


012737 


177740 


006760 




MOV #177740, HANGPL 


2670 


006636 


104405 








CKSWR 


2671 


006640 


032777 


020001/? 


172350 




BIT «SW13»0SWR 


2672 


006646 


001402 








BEO IS 


2673 


006650 


000137 


002162 






JMp MORETESTS 


2674 


006654 


1044^90 


00b6 7 4 




IS: 


T^PE, MHUNGPC 


2675 














2676 










; THE 


PC IS ALREADY ON THE 


2677 














2678 


006660 


162716 


000002 






SUB «2r 9 SP 


2679 


006664 


104402 








TYPOS 


2680 


006666 


006 








.B/TE 6 


2681 


006667 


001 








.BYTE 1 


2682 


006670 


0001 37 


002162 






JMp MORETESTS 



IRESET THE HANG COUNTERS 
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2683 














2664 


006674 


005015 


042504 


044526 


MHUNGPC 


! .ASCIZ <15><12>"DEVICE 


2685 


006702 


042503 


052040 


051505 






2686 


006710 


020124 


052510 


043516 






2687 


006716 


040040 


050040 


020103 






2688 


006724 


000 










2689 


006725 


040 


040520 


051523 


MPASS! 


.ASCIZ " PASS =" 


2690 


006732 


03644^ 


000 








2691 




006736 








.EVEN 


2692 














2693 


006736 


005037 


006756 




XSDNj 


CLP HANGER 


2694 


006742 


012737 


177740 


006760 




MOV I(177740»HANGPL 


2695 


006750 


062716 


000002 






ADD »2# P SP 


2696 


006754 


000207 








RTS PC 


2697 


006756 


000000 






HANGER! 





2698 


006760 


177740 






HANGPLi 


177740 



J UPDATE FOR EXIT 
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SEQ 0086 



2699 










.SBTTL DRIVE TEST SELECTION 


2700 












2701 










IDO A READ ONLY FUNCTION ON ALL SECTORS, 


2702 










;THIS DOES NOT VERIFY THE DATA, ONLY TESTS FOR CHC ERRORS, 


2703 












2704 


006762 


004737 


012752 


HDONLYs 


JSR PC»INITTRACKS 


2705 


006766 


0047 37 


012634 




JSR PCGETUNIT 


2706 


006772 


004737 


01 3104 


ISI 


JSP PCGETTRACK 


2707 


006776 


0047 37 


1 001 4 




JSR PC#READ 


2708 


007002 


005337 


013124 




DEC TRKCNTP 












BNE 1$ 


• 


am lA 1 01 








RTS PC 


2 711 












^3 ! ^ 










27 1 J 






















jWRlTE AND READ DATA ON SPECIFIED TRACK AND ALTERNATE 


2715 










JDPIVES BEFORE GOING TO THE NEXT TRACK, 












2 7 1 7 


v\3 1 y) I £, 




01 2260 


DRVSWP: 


JSR PCGETPATTERN 




00701b 


a^47^7 






JoK rw » XN A ri KAL 


2 7 I 9 


cin 7 on 






ISJ 


JSR PCGETUNIT 




7 a *} A 

WW ' W / D 




013104 




JSR PCGETTRACK 




eia7oi ? 1 


fl^47 17 


0071 34 




JSR PC, WRITE 


2722 


x><0 1 V 3X) 




B 1 rIO J "t 




JSR PCHEADCHK 


2723 


007042 


004717 






JSR PCGETUNIT 




VKf f V HO 




007134 




JSR PCWRITE 


2725 


vv / W 7 c 




It/ 1 W M J H 




JSR PCREADCHK 


2726 


007056 


005337 


01312 4 




DEC TPKCNTR 


2727 


007062 


001 357 






BNE IS 


2728 


00706 4 


000 207 






RTS PC 


27 29 












27 30 












27 31 












2732 










jWRlTE ALL SECTORS AND READ/VERIFY ALL SECTORS 


2733 












2734 












2735 


007066 


004737 


012260 


KTRDCKJ 


JSR PCGETPATTERN 


2736 


007072 


004737 


012752 


XWTHDCK! 


JSR PC, INITTRACKS 


2737 


007076 


004737 


M12634 




JSR PCGETUNIT 


2738 


007102 


004737 


013104 


ISl 


JSR PCGETTRACK 


2739 


007106 


004737 


007134 




JSP PCWPITE 


2740 


0071 12 


004737 


010634 




JSR PCREADCHK 


2741 


0071 16 


005337 


013124 




DEC TRKCNTP 


2742 


007122 


001367 






BNE IS 


2743 


007124 


004737 


012726 




JSR PCDONt J HAVE BOTH DRIVES BEEN TESTED 


2744 


0071 30 


0kl0207 






RTS PC ;yES 


2745 


007132 


000757 






BR XWTRDCK jNO, GO TO OTHER UNIT 
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2746 








2747 








2748 


007134 


0047 37 


013324 


2749 


007140 


004737 


013422 


2750 


007144 


004737 


010766 


2751 


007150 


^12746 


007332 


2752 


007154 


012746 


007222 


2753 


007160 


005037 


011452 


2754 


007164 


005046 




2755 


007166 


012746 


007174 


2756 


007172 


000002 




2757 


007174 


012777 


000101 


2758 


007202 


105777 


172000 


2759 


007206 


100375 




2760 


007210 


112077 


171774 


2761 


007214 


005237 


011452 


2762 


007220 


000770 




2763 








2764 


007222 


005726 




2765 


007224 


012737 


016366 


2766 


007232 


012737 


007140 


2767 


007240 


012737 


007144 


2768 


007246 


000137 


007252 


2769 








2770 


007252 


104405 




2771 


007254 


032777 


020000 


2772 


007262 


001006 




2773 


007264 


104400 


000000 


2774 


007270 


104400 


016577 


2775 


007274 


104400 


016120 


2776 


007300 


104405 




2777 


007302 


005777 


171710 


2778 


007306 


100001 




2779 


007310 


000000 




2780 


007312 


032777 


004000 


2781 


007120 


001402 




2782 


007322 


000137 


007144 


2783 


007326 


000137 


010132 


2784 








2785 


007332 


005037 


006756 


2786 


007336 


012746 


007430 


2787 


007342 


012746 


007444 


2788 


007346 


112737 


000105 


2789 


007354 


022737 


006050 


2790 


007362 


001003 




2791 


007364 


112737 


000U5 


2792 


007372 


004737 


007634 


2793 


007376 


00S046 




2794 


007400 


012746 


007406 


2795 


007404 


000002 




2796 


007406 


032777 


000040 


2797 


007414 


001774 




2798 


007416 


005237 


006756 


2799 


007422 


001375 




2800 


007424 


000137 


0U462 



lb-MAR-76 15855 PAGE 62 



.SbTTL WRITE FUNCTION 

write: JSR PCr INITSECTOR 

XwRlTFs JSR PCGETSECTOR 

FILLBUF: JSR PC,ADJSUM 

MOV (JFILLDONE, -(SP) 
MOV 8FILLER,-(SP3 
CLP BYTECNTR 
-CSP) 
#1S,-(SP) 



007702 
006556 



171572 



CLR 
MOV 
RTI 



FILLFLAGj 



007266 
007330 
007324 



PTYPll 
C0NT4! 



HLT6t 
C0NT13! 



PLOOPI 
PCONTI 



CLR 
MOV 
RTI 



2Sl 
3$i 



MOv »FBIE,PRXCS 
TSTB lapXCS 
BPL FILLFLAG 
MOVB (R0)+,0HXD8 
INC BYTECNTR 
BR FILLFLAG 

TST (SP)* 
MOV #MFIL,PTYPU2 
MOV »XWRlTE,pC0NT*2 
MOV »FILLBUF,PL00p+2 
JMP PARTEST 

CKSWR 

BIT »SW13,fasWR 
BNE C0NT4 
TYPE ,OPEN 
TYPE ,MPAR 
TYPE ,MCRLF 
CKSWR 
TST §SWR 
BPL C0NT13 
HALT 

BIT »SWU,@SWR 
BEQ PCONT 
JMP FILLBUF 
JMP NEXTRD 

CLR HANGER 
MOV #WRTDONE,-(SP) 
MOV #WRTER,-(SP) 
MOVB #WRTIE, FUNCTION 
CMp »T25,PCSC0PE 
BNE 1$ 

MOVB #WTDDIE, FUNCTION 
JSR PCCOMMWORD 

-CSP) 

»2S,-(SP3 

BIT »DONEBIT,©RXCS 

BEQ 2$ 

INC HANGER 

BNE 3$ 

JMP NOINTER 



jSKt UP FIPST, LAST, AND SECTOR CUUnTeH 
IPICK UP NEXT SECTOR 

jADJUST DATA BUFFER AND CHECK SUM FOR ADDRESSES 
JPUT GOOD RETUPNON STACK 
JPUT ERROR RETURN ON STACK 

JLOWEP 'CPU' LEVEL 

jSET RETURN 'PC 

jGET 'CPU' LEVEL INTO 'PSW 

^EXECUTE FILLBUFER COMMAND 

jTEST FOR TRANSFER REQUEST l- LAG 

{TRANSFER DATA BYTE 

J WAIT FOR NEXT TR FLAG 

JREMOVe the DONE RETURN FROM THE STACK 

jPUT ADDr OF FILLBUF MESSAGE IN pAR ERR TYpUUT 1 

I IF NO LOOP ON ERROR GO TO NEXT SECTOR 

;IF LOOP ON ERROR RETURN THROUGH PLOOP 

IPRINT OUT PAR ERR AND TEST CONDITIONS FOR RETRY 

jTEST DON'T PRINT ERROR SWITCH 
>PRINT THE PARITY ERROR MESSAGE 



jTEST HALT ON ERROR SWITCH 

J HALT ON ^RROR 

jTEST LOOP ON ERROR SWITCH 

I IF NOT SET GO TO NEXT SECTOR 

JRETURN TO LOOP ON TEST THROUGH HERE 

jGO TO NEXT SECTOR THROUGH HERE 



fSET GOOD RETURN ON STACK 
I SET ERROR RETURN ON STACK 
jSET FUNCTION WORD TO WRITE 
J IS THIS THE DELETED DATA TEST 



^TRANSFER COMMAND TO DRIVE 

iLOWER 'CPU' LEVEL 

ISET RETURN 'PC' 

jGET 'CPU* LEVEL INTO 'PSW' 

IWAIT FOR DONE 

I WAIT FOR INTERRUPT 

|N0 INTERRUPT ERROR 
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SEQ 00B8 



2801 


007430 


005337 


013414 


2802 


007434 


001001 




2803 


007436 


000207 




2804 


007440 


000137 


007140 


2805 








2806 


007444 


00S726 




2607 


007446 


032737 


000002 


2808 


007454 


001413 




2809 








28i0 


007456 


012737 


016570 


2811 


007464 


012737 


007430 


2812 


007472 


012737 


007332 


2813 


007500 


0001 37 


007252 


2814 








2815 








2816 


007504 


012737 


007144 


2817 








2818 








2819 








2820 








2821 


007512 


012737 


016570 


2622 


007520 


004737 


007526 


2823 


007524 


000741 




2824 








2825 


007526 


104405 




2826 


007530 


0327 77 


020000 


2827 


007536 


001004 




2828 


007540 


104400 


016570 


2829 


007544 


004737 


007606 


2830 


007550 


104405 




2831 


W07552 


005777 


171440 


2832 


W07556 


100001 




2833 


007560 


000000 




2834 


007562 


004737 


007706 


2835 


007566 


104405 




2836 


007570 


032777 


004000 


2837 


007576 


001001 




2838 


007600 


000207 




2839 


007602 


000137 


007144 


2840 








2841 


007606 


104400 


016555 


2842 


H07612 


104400 


016032 


2843 


007616 


013746 


013130 


2844 


007622 


104402 




2845 


007624 


003 




2846 


007625 


000 




2847 


H07626 


104400 


0161 20 


2848 


007632 


000207 




2849 









WPTDONEl 



DEC SECCNTR 
BNE 23 
RTS PC 
JMP XWRITE 



jTEST SECTOR COUNTER 

>NOT LAST SECTOR GO TO NEXT ONE 



007266 
007330 
007324 



TST (SP)+ iREMOVE THE DONE RETURN FROM THE STACK 

BIT KBITliASTAT >IS THIS A PARITY ERROR 

BEQ WRTSEK |N0, IT MUST BE A SEEK ERROR 
IPARITY ERROR DURING A WRITE FUNCTION 

MOV «MWRlTE,PTYPl + 2 I PUT ADDr OF WRITE MESSAGE IN PAR ER TYPOUT 1 

MOV #WRTD0NE,PC0NT+2 jIF NO LOOp GO TO NEXT SECTOR 

MOV 8FILLDONE,PLOOp+2 ; IF LOOP RETURN THROUGH pLOOp TO REWRITE 

JMp PARTES! IGO INC LOG AND TEST FOR RETRY 



007604 WRTSEKi 



ISEEK ERROR DURING A WRITE FUNCTION 



STYPl t 
SWHLTl I 



HLt7j 
C0NT14I 



MOV 
TYPOS 
.BYTE 
.BYTE 



MOV »FILLBUF,SEKRTY*2 



MOV )»MWRlTE,STYpl+2 
JSR PC» SEEKER 
BR WRTDONE 

CKSWR 

BIT #SW13»9SWP 
BNE SWHLTl 
TYPE »MWRITE 
JSR PCSEKTYP 
CKSWR 
TST fSWR 
BPL C0NT14 
HALT 

JSR PC, HOME 
CKSWR 

BIT #SW11,PSWR 
BNE SEKRTY 
RTS PC 
JMp FILLBUF 



ISETUP FOR WRT RETRY ON SEEK ERROR 
I (AFTER A PECAL. THE CONTENTS OF SECTOR 1, 
fTRACK 1 ARE LOADED INTO THE SECTOR BUFFER, 
fTO REWRITE THE CORRECT DATA THE PROGRAM 
fMUST REFILL THE SECTOR BUFFER, 

|PUT ADDr OF WRITE MESSAGE IN SEEK ER TYPEOUT 1 
jRtCORD SEEK ERROR 

jGO TO NEXT SECTOR CAN'T FIND THIS ONE 



jCHECK DON'T PRINT ERROR SWITCH 
jPRINT WRITE (READ) SEEK ERROR 



;TEST THE HALT ON ERROR SWITCH 



fHALT ON THE ERROR 
jRECALIBpATE ON SEEK ERRORS 



JCHECK THE LOOP ON ERROR SWITCH 

;IF SET LOOP ON THE ERROR THROUGH SEEK RETRi. 



iRETRY WRITE COMMAND (READ COMAND) 



TYPE ,MSEEK 
TYPE ,MPRES 
PRESTRK» -(SP) 



TYPE ,MCRLF 
RTS PC 



I TYPE SEEK ERROR 

J TYPE ADDRESS OF TRACK MOVED FROM 
jjSAVE PRESTRK FOR TYPEOUT 
mGO type— octal ASCII 
mTYPE 3 DIGIT(S) 
nSUPPRESS LEADING ZEROS 



MAlNDEC-1 1-DZRXB-E 
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ZRXBE, 


PU 


WRITE FUNCTION 










2850 


007634 


153737 


012724 


007702 


COMMWOpDj 


BISB UNITSEL, FUNCTION 


jSET UNIT SELECTION BIT IN COMMAND 


2851 


007642 


013777 


007702 


171336 




MOV FUNCTION, apxCS 


ISEND OUT COMMAND TO DRIVE 


2852 


007650 


004737 


006560 




1$} 


JSR PCSTP 


JWAIT FOR TH FLAG 


2853 


007654 


000775 








BR IS 




2854 


007656 


11 3777 


013416 


171324 




MOVB TSECT0P,9RXDB 


jSENO OUT TARGET SECTOR 


2855 


007664 


004737 


006560 




2SI 


JSR PCSTR 


JWAIT FOR TR FLAG 


2856 


007670 


000775 








BR 2$ 




2857 


007672 


113777 


013126 


nnic' 




MOVB TARGET, »RXDB 


ISEND OUT TARGET TRACK 


2858 


007700 


000207 








RTS PC 




2859 
















2860 


007702 


000000 






FUNCTION J 







2861 


007704 


000000 






DATACKJ 





IDATA CHECK ON CRC ERROR FLAG 


2862 
















2863 


007706 


104405 






HOMEJ 


CKSWR 




2864 


007710 


032777 


000400 


171300 




BIT #SW8,asMR 


ITEST NO RECAL SWITCH 


2865 


007716 


001035 








BNE RTN 




2866 


007720 


012777 


040001 


171260 




MOV »RECAL,fPXCS 


1 ISSUE RECAL FUNCTION 


2867 


007726 


004737 


006574 




2$i 


JSR PC, SDN 




2868 


007732 


000775 








BR 2S 




2669 


007734 


005777 


171246 






TST HRXCS 


;WAS THERE AN ERROR 


2870 


007740 


100021 








BPL XHOME 


JNO 


2871 


007742 


104405 








CKSWR 




2872 


007744 


032777 


020000 


171244 




BIT «BIT13,PSWR 


»YES, SHOULD IT BE PRINTED 


2873 


007752 


001002 








BNE IS 


|N0 


2874 


007754 


004737 


012152 






JSR PCRDCODE 




2875 


007760 


104405 






ISt 


CKSWR 




2876 


007762 


005777 


171230 






TST gSWR 


jTEST HALT ON ERROR SWITCH 


2877 


007766 


100001 








BPL 3S 




2878 


007770 


000000 








HALT 




2879 


007772 


032777 


004000 


171216 


3$l 


BIT «SW11,9SWR 


fTEST LOOP ON ERROR SWITCH 


2880 


010000 


001342 








BNE HOME 




2881 


010002 


000207 








RTS PC 




2882 


010004 


012737 


000001 


013130 


XHOMEl 


MOV # I, PRESTRK 


fSET THE PRESENT TRACK TO TRACK I 


2683 


010012 


000207 






RTNl 


RTS PC 




2884 
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i>£Q 0090 



2885 








2886 








2807 








2888 


010014 


004737 


013324 


2889 


010020 


004737 


013422 


2890 


010024 


005037 


007704 


2891 


010030 


005037 


006756 


2892 


010034 


012746 


010110 


2893 


010040 


012746 


010142 


2894 


010044 


112737 


000107 


2895 


010052 


004737 


007634 


2896 


010056 


00S046 




2897 


010060 


012746 


010066 


289B 


010064 


000002 




2899 


010066 


032777 


000040 


2900 


010074 


001774 




2901 


010076 


005237 


006756 


2902 


010102 


001375 




2903 


010104 


0001 37 


011462 


2904 








2905 


010110 


022737 


005462 


2906 


010116 


001405 




2907 


010120 


004737 


010410 


2908 


010124 


005701 




2909 


010126 


100001 




2910 


010130 


000207 




2911 


010132 


005337 


013414 


2912 


010136 


001330 




2913 


010140 


000207 




2914 








2915 


010142 


005726 




2916 


010144 


032737 


000002 


2917 


010152 


001413 




2918 








2919 


010154 


012737 


016530 


2920 


010162 


012737 


010024 


2921 


010170 


012737 


010132 


2922 


010176 


000137 


007252 


2923 


010202 


032737 


000001 


2924 


010210 


00101 I 




2925 








2926 


010212 


012737 


010024 


2927 


010220 


012737 


016530 


2928 


010226 


004737 


007526 


2929 


010232 


000737 





,SBTTL READ DATA FROM THE DISKETTE 



00726b 
007324 
007 330 

012146 1S5 



007604 
007542 



READ! 




JSP 


PC# INITSECTOR 




XPEADJ 




JSR 


PCGETSECTOR 




REREAD! 




CLP 


DATACK 


jCLEAR CrC DATA CHECK FLAG 






CLR 


HANGER 








MOV 


»RDDONfc,-CSP) 


ISET GOOD RETURN ON STACK 






MOV 


»RDERR,«.(SP) 


fSET READ ERROR RETURN ON STACK 






MOVB #RDIE, FUNCTION 








JSR 


PCiCOMMWORD 






CLR 


-(SP) 


JLOWER 'CPU* LEVEL 






#1$» 


-(SP) 






RTI 






|GET 'CPU* LEVEL INTO 'PSW 


ISJ 




BIT 


«DONEBlT,flPXCS 


IWAIT FOR DONE BIT 






BEQ 


1$ 




2S: 




INC 


HANGER 


JWAIT FOp INTERRUPT 






BNE 


2S 








JMP 


NOINTER 


|N0 INTERRUPT ON DONE 


Rddone: 




CMP 


#T20»PC SCOPE 


JIS THIS The PEAD only test (T20) 






BEQ 


NEXTRD 


>YES, DON'T CHECK FOR DELETED DATA 






JSR 


PCDDCHK 


JCHECK FOR DELETED DATA INDICATOR 






TST 


Rl 


|BIT 15 OF Rl IS READ 1 SECTOR FLAG 






BPL 


NEXTRD 








RTS 


PC 


}IF SET, GO VERIFY DATA JUST READ 


NEXTRD: 




DEC 


SECCNTR 








BNE 


XREAD 








RTS 


PC 


jREAD FUNCTION IS DONE 


PDEFR: 




TST 


(SP) + 


IREMOVE THE DONE RETURN FROM THE STACK 






BIT 


«6IT1, ASTAT 


»IS THIS A PARITY ERROR 






BEQ 


IS 


|N0, SEE IF ITS A CRC ERROR 




JPARITY 


ERROR DURING A READ 


FUNCTION 






MOV 


«MREAD,PTYPl+2 


fPUT ADDp OK READ MESSAGE IN PAR ERR TYPEOUT 



MOV «REPEAD,PL00p+2 
MOV «NEXTRD,PC0NT+2 
JMP pARTEST 
BIT #BIT0,ASTAT 
BNE CRCER 



J IF LOOP ON ERROR LOOP THROUGH pLOOp 
I IF NO LOOP GO TO NEXT READ 
jRECORD PARITY ERROR AND RETRY FUNCTION 
JIS THIS A CRC ERROR 
I YES GO TEST AND LOG IT 



jSEFK ERROR DURING A READ FUNCTION 

MOV ttREREAD,SEKPTY + 2 |SET SEEK CONTINUE FOR READ RETRY 

MOV »MREAD,STYPU2 | SET ADDR OF READ MESSAGE IN SEEK EH TYPEOUX 

JSR PC» SEEKER |R£CORD SEEK ERROR 

BR NEXTRD jGO TO NEXT SECTOR, CAN'T READ THIS ONt 
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2930 












JCPC 


ERROR DETECTED WHILE 


2931 
















2932 


010234 


005701 






CRCEP J 




TST Rl 


2933 


010236 


100034 










BPL DATACRC 


2934 


010240 


005237 


007704 








INC DATACK 


2935 


010244 


004737 


010644 








JSR PCEMPBUFF 


2936 


010250 


005737 


011460 








TST ERCNTR 


2937 


010254 


001025 










BNE DATACRC 


2938 


010256 


104405 










CKSWR 


2939 


010260 


032777 


020000 


170730 






BIT #SW13f9SWP 


2940 


010266 


001004 










BNE 2$ 


2941 


010270 


104405) 


016500 








TYPE ,HBADCRC 


2942 


010274 


104400 


016120 








TYPE ,MCRLF 


2943 


010300 


104405 






2s: 




CKSWR 


2944 


010302 


005777 


170710 








TST #SWP 


2945 


010306 


100001 










BPL C0NT15 


2946 


010310 


000000 






HLT10I 




HALT 


2947 


010312 


032777 


004000 


170676 


C0NT15! 




BIT #SW11,JJSWR 


2948 


010320 


001001 










BNE 3S 


2949 


010322 


000703 










BR NEXTRD 


2950 


010324 


000137 


010024 




3S! 




JMP REREAD 


2951 
















2952 












jDATA 


CRC EPROR 


2953 
















2954 


010330 


104405 






DATACRC! 




CKSWR 


2955 


010332 


032777 


020000 


170656 






BIT #SM)13,^SWR 


2956 


010340 


001004 










BNE 4S 


2957 


010342 


104400 


016536 








TYPE »MCHC 


2958 


010346 


104400 


016120 








TYPE iMCRLF 


2959 


010352 


104405 






4$l 




CKSWR 


2960 


010354 


005777 


170636 








TSr 9SWR 


2961 


010360 


100001 










BPL C0NT16 


2962 


010362 


000000 






HLT121 




HALT 


2963 


010364 


032777 


004000 


170624 


C0NT16I 




BIT #SW11,@SWR 


2964 


010372 


001004 










BNE 5$ 


2965 


010374 


062706 


000002 








ADD #2,SP 


2966 


010400 


000137 


010132 








JMP NEXTRD 


2967 


010404 


000137 


010024 




5$i 




JMP REREAD 


2968 
















2969 

















tlf READ ONLY, REPORT DATA CRC ERROR 

ISET DATA CHECK FLAG 
jCHtCK FOR A DATA ERROR 
J WAS THERE A DATA ERROR 
;YES, REPORT IT 

iTEST DON'T PRINT SWITCH 

ITYPE CRC GENERATOR ERROR 

jTEST HALT ON ERROR SWITCH 

JHALT ON ERROR 

fCHECK LOOP ON ERROR SWITCH 

IDON'T LOOP GO TO NEXT SECTOR 
iLOOP ON TEST, 



iTEST DON'T PRINT ERROR SWITCH 
»TYPE DATA CRC ERROR 

fTEST HALT ON ERROr SWITCH 

IHALT ON ERROR 

I TEST LOOP ON ERROR 

I IF SET LOOP ON THE TEST 

{REMOVE READ DONE ADDRESS FROM STACK 

fREAD NEXT SECTOR CAN'T READ THIS ONE 

|NO,GO REREAD THIS SECTOR 
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SEQ 0092 



2970 


010410 




006050 


c/ V 3 3 


DDCHKi 




Kt'^ir » i <{ a # rv, Dv. vr & 




2971 


010416 


00 10 41 










tint. LUN i 1 to 




2972 


010420 


132737 










DiTo ffolTOjASxAT 


ITHIS IS TEST 25 


297 3 


iA 1 aAi A 
V i vt^o 


00 1056 










Que OCVIIDM 

ONE KLIUKN 


fDD BIT SHOULD BE SET 


2974 




i a A A {AK 










f e LI a 
C WR 






010432 




tA*^ fA(A{AeA 


_ 

170556 






BIT #SW13#0SWR 


jTEST DON'T PRINT ERROR SWITCH 






(A(A% (A i t 










&NE CONTll 


2977 


10442 


0047 37 


010566 








JSP PCfERMSG 






010446 


1 04400 


015747 








TYPE ^MDDMIS 


fTYPE MISSING DELETED DATA BIT 


2979 


010452 


052737 


000400 


012724 


DDERR 1 




Bis #81X8, UNITSEL 


jSET HARD ERROR FLAG 


2980 


010460 


0047 37 


01 2050 








JSR PC#TYPADR 


fTYPE ADDRESS OF ERROR 


2981 


010464 


1 04400 


016120 








TXPE #MCRLF 




2982 


010470 


1 04405 






CONTl 1 1 




CKSWR 




2983 


010472 


00S777 


170520 








TST 0SWR 


jTEST HALT ON ERROR SWITCH 




10476 


1 0000 1 










BPL C0NT17 




2985 




000000 






HLTl 3 J 




HALT 


fHALT ON DELETED DATA ERROR 


2986 


010502 


032777 


004000 


170506 


C0NT17 : 




BIT »SWU»9SWR 


jTEST LOOP ON ERROR 


2987 


010510 


001402 










BEQ 4S 




2988 


01051 2 


0001 37 


010024 








JMp REREAD 


jLOOP ON TEST 


2989 


1 05 1 6 


0001 37 


010132 




4s J 




JMp NEXTRD 


;READ NEXT SECTOR 


^nn? 


010522 


032737 


(A£MA\ (A I A 

1(110(0 I low 


012146 


CON T 101 




BIT ttBIT6,ASTAT 


jTHIS IS NOT A DELETED DATA TRANSFER 


2991 


1 05 30 


001 4 1 5 










BEQ RETURN 


















BIS »B1T8»UNITSEL 


fSET HARD ERROR FLAG 




1 0540 


1 tX A A tAti 










CKSWR 




■3Q0d 


010542 


0327 7 7 


020000 


170446 






BIT «SWl3rPSWR 


jTEST DON'T PRINT ERROR SWITCH 


2995 


1 0550 


001 347 










BNE CONTll 




2996 


1 0552 


0047 37 


010566 








JSR PC»ERMSG 




2997 


010556 


1 04400 


015721 








TYPE ,MUNXDD 


jTYPE UNEXPECTED DELETED DATA BIT 




010562 


000733 










BR DDERR 




2999 
3000 


a i tAtze. A 
W 1 W3D » 


CI c;i rx 1^ T 






RETURN 1 




RTS PC 




300 1 




















1 0566 


i Ok A A(A(A 
I W H «t 1010 


016123 




c F M SG J 




TYPE ,MERHEADER 




3003 


010572 


013746 


006556 






MOV 


PCSCOPE* -C3P) ;jSAVE 


PCSCOPE FOR TYPEOUT 


3004 


010576 


104402 








TYPOS 


nGO TYPE--OCTAL ASCII 


3005 


010600 


006 








.BYTE 


6 nlYPE 


6 DIGITS 


3006 


010601 


000 








.BYTE 


flSUPPRESS LEADING ZEROS 


3007 


010602 


104400 


006725 








TYPE ,MPASS 




3008 


010606 


01 3737 


002530 


010620 






MOV PASS, IS 




3009 


010614 


004537 


015600 








JSR R5,SGLDEC 




3010 


01062M 


000000 






IS: 




OPEN 




3011 


010622 


104400 


016120 








TYPE ,MCBLF 




3012 


010626 


004737 


006450 








JSR PC, DING 




3013 


010632 


000207 










RTS PC 




3014 


















3015 



















MAINDEC-1 1-DZRXB-E MACYll 27(732) 

DZRXBE.Pll READ AND VERIFY DATA 



lf,-MAP-76 15555 PAGE 68 



3016 










3017 










3018 










3019 










3020 










3021 


010634 


052701 


100000 




3022 


010640 


004737 


010014 




3023 


010644 


005737 


01 3414 




3024 


010650 


001002 






3025 


010652 


000137 


011446 




3026 


010656 


005037 


011452 




3027 


010662 


005037 


01 1460 




3028 


010666 


052701 


000200 




3029 


010672 


004737 


010766 




3030 


010676 


005037 


011056 




3031 


010702 


012746 


011306 




3032 


010706 


012746 


01 1060 




3033 


010712 


005046 






3034 


010714 


012746 


010722 




3035 


010720 


000002 






3036 


010722 


012777 


000103 


170256 


3037 


010730 


105777 


170252 




3038 


010734 


100375 






3039 










3040 


010736 


117737 


170246 


01 1454 


3041 


010744 


063737 


011454 


011056 


3042 


010752 


123720 


011454 




3043 


010756 


001054 






3044 


010760 


■ 005237 


011452 




3045 


010764 


000761 






3046 










3047 


010766 


113737 


013126 


017404 


3048 


010774 


113737 


013416 


017405 


3049 


01 1002 


013737 


012536 


011056 


3050 


011010 


063737 


013126 


011056 


3051 


0U016 


063737 


013416 


011056 


3052 


011024 


113737 


011056 


017602 


3053 


011032 


106337 


011056 




3054 


011036 


105437 


011056 




3055 


011042 


113737 


011056 


017603 


3056 


011050 


012700 


017404 




3057 


011054 


000207 






3058 










3059 


011056 


000000 






3060 










3061 


011060 


005726 






3062 


011062 


012737 


016402 


007266 


3063 


011070 


012737 


010644 


007324 


3064 


011076 


012737 


011430 


007330 


3065 


011104 


000137 


007252 




3066 











.SBTTL READ AND VERIFY DATA 



jREAD A SECTOR, EMPTY THE SECTOR BUFFER AND VERIFY 
>THF, DATA READ AGAINST CORE DATA BUFFER 



READCHKj 
EMPBUFF} 



2S: 

EMpFLAG; 



CLP 
MOV 
RTI 



CKSUMl 
EMPERI 



BIS IRIT15,R1 

JSR PC, READ 

TST SECCNTP 

BNE IS 

JMP EXIT 

CLP 6YTECNTR 

CLP ERCNTR 

BIS #BIT7#R1 

JSR PC»ADJSUM 

CLP CKSUM 

MOV «EMPDONE,-(SP) 

MOV «EMPER,-(SP) 

-(SP) 

i2$,-(SP) 

MOV «EBIE,(aRXCS 
TSTB BRXCS 
BPL EMPFLAG 

MOVB #RXDB,BADBYTE 
ADD BADBYTE, CKSUM 
CMPB BADBYTE, (R0)+ 
BNE DATAER 
INC BYTECNTR 
BR EMPFLAG 

MOVB TARGET, BUFADR 
MOVB TSECT0R,BUFADR4-1 
MOV SUMrCKSUM 
ADD TARGET, CKSUM 
ADD TSECTOR, CKSUM 
MOVB CKSUM, BUFADR+176 
ASLB CKSUM 
NEGB CKSUM 

MOVB CKSUM, BUFADR+177 
MOV #BUFADR,R0 
RTS PC 



TST (SP)-»" 

MOV #MEMpTY,PTYPl+2 
MOV #EMpBUFF,PL00P+2 
MOV SNXREAD,PC0NT+2 
JMp pAHTEST 



)SET READ 0!>IE SECTOR FLAG 

|G0 HEAD ONE SECTOR 

fIF CLEARED NO SECTORS WERE FOUND 

jGO TO NEXT TRACK 

jCLEAR THE BYTE AND ERROR COUNTERS 

IRI BIT 7 IS USED AS FIRST ERROR FLAG 

lADJUST DATA AND CK SUM FOP ADDRESSES 

jSET UP FOR CHECK SUM ACCUMULATION 

ISET UP RETURN ADDRESSES 

?LOWER 'CPU' LEVEL 

jSET RETURN 'PC 

>GET 'CPU' LEVEL INTO 'PSW' 

J LOAD EMPTY BUFFER FUNCTION 

iTEST FOR TP FLAG 



jSAVE BYTE FROM DISKETTE 
^ACCUMULATE CHECK SUM 
jCOMPARE AGAINST GOOD BYTE 
J IF NOT EQUAL GO TO DATAER 

JGET NEXT BYTE 

ISET FIRST AND SECOND BYTES WITH ADDRESSES 

jGET THE PATTERN SUM 
jADD TRACK ADDRESS TO CHECK SUM 
|ADD SECTOR ADDRESS TO CHECK SUM 
> INSERT CHECK SUM TO DATA BUFFER 
I GENERATE NEGITIVE CHECK SUM 

jINSERT NEG,SUM INTO DATA BUFFER 
fSET ADDRESS OF BYTE IN R0 
JRETURN 



I REMOVE THE DONE RETURN FROM THE STACK 

JPUT ADDR OF EMPTYBUF MESSAGE Ifi PAR ER TYpOUT 

IRETURN THROUGH HERE TO LOOP ON ERROR 

>IF NO LOOP ON ERROR GO TO NEXT SECTOR 

jREPORT PARITY ERROR 
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5EQ 0094 



3067 


011110 


052737 


000400 


012724 


dRtaep : 


BIS »BIT8#UN1TSEL 


»SET THE HAD ERROR FLAG 


3068 


011116 


005237 


01 14b0 






INC ERCNTH 


jINC THE BYTE ERROR COUNTER 


3069 


011122 


104405 








CKSWR 




3070 


011124 


032777 


020000 


170064 




BIT »SW13#0SWP 


jTEST PRINT ERROR SW IN SWR 


3071 


011132 


001054 








BNE NOERTYP 


, DON'T PRINT THE ERROR 


3072 


01 1 134 


032777 


001000 


170054 




BIT »SW9,9SWH 


ITEST PRINT 10 ERRORS SWITCH 


3073 


01 1142 


001004 








BNE 1$ 


I IF SET PRINT ALL ERRORS 


3074 


011 144 


023727 


01 1460 


000012 




CMp ERCNTP,#10. 


fHAVE 10 ERRORS BEEN TYPED 


3075 


01 1 152 


003044 








BGT NOERTYP 


>YES, DON'T PRINT ANY MORE 


3076 


01 1 154 


105701 






isj 


TSTB Rl 


jTEST FIRST ERROR FLAG 


3077 


011156 


100014 








BPL TYPERR 




3078 


011160 


004737 


010566 






JSB PC.ERMSG 


IPRINT ADDRESS OF TEST 


3079 


0U164 


104400 


015772 






TYPE ,MDERHDR 


jFlRST ERROR, PRINT ERROR HEADER 


3080 


01 1 170 


104400 


016120 






TYPE ,MCRLF 




3081 


011174 


004737 


012050 






JSR PCTYPADR 


jPRiNT TRACK AND SECTOR LOCATIONS 


3082 


011200 


104400 


016061 






TYPE ,MCOLMUN 


{SET UP cOLMUN HEADINGS 


3083 


01 1204 


042701 


000200 






BIC #BIT7»R1 


fCLEAR FIRST ERROR FLAG 


3084 


011210 


013737 


01 1452 


01 1222 


TYPERPJ 


MOV BYTECNTR,1$ 


;PRINT BYTE NUMBER 


3085 


011216 


004537 


015600 






JSR R5,SGLDEC 




3086 


011222 


000000 






ISi 


OPEN 




3087 


011224 


104430 


016115 






TYPE .DBLSP 




3088 


011230 


01374b 


01 1454 






MOV BADBYTE,-(SP) 


jPRINT BYTE READ FROM DISKETTE 


3089 


01 1234 


104402 








TYpOS 




3090 


01 1 236 


000003 








.WORD 3 




3091 


011240 


104400 


0161 15 






TYPE ,UBLSP 




3092 


011244 


114037 


01 1 456 






MOVB -CR0) ,GOODBYTE 


jGET GOOD BYTE 


3093 


01 1250 


005200 








INC R0 


jRETURN R0 TO NEXT BYTE IN BUFFER 


3094 


01 1252 


01374b 


011456 






MOV GOODBYTE,-(SP) 




3095 


011256 


104403 








TYPON 


fPRINT GOOD DATA 


3096 


011 260 


104400 


016120 






TYPE ,MCRLF 




3097 


01 1264 


104405 






NOFRTYPi 


CKSWR 




3098 


01 1266 


005777 


167724 






TST PSWR 


jTEST HALT ON ERROR SWITCH 


3099 


011272 


100001 








bPL CONT20 




3100 


01 1274 


000000 






HLT141 


HALT 




3101 


011276 


005237 


01 1452 




CONT20S 


INC bytecntp 




3102 


011302 


000137 


010730 






JMP EMPFLAG 




3103 
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3104 
3105 
3106 
3107 
3108 
3109 
3110 
3111 
3112 
3113 
3114 
3115 
3116 
3117 
3118 
3119 
3120 
3121 
3122 
3123 
3124 
3125 
3126 
3127 
3128 
3129 
3130 
3131 
3132 
3133 
3134 
3135 
3136 
3137 
3138 
3139 
3140 
3141 
3142 
3143 



011 306 
011312 
01 1314 
011316 
01 1322 
011324 
01 1326 
01 1334 
011336 
01 1342 
01 1 350 
01 I 354 
01 1356 
01 1362 
011366 
01 1370 
011374 
01 1376 
011402 
011406 
011410 
011416 
01 1420 
011424 
011430 
011434 
01 1436 
011442 
011 44b 
01 1450 

011 452 
011454 
01 1456 
01 1460 



005737 
001401 
000207 
0y5737 
001 442 
104405 
032777 
001024 
104 400 
01 3737 
004537 



EMpDONEi 



104400 
105737 
001403 
104400 
000402 
104400 
104400 
104405 
032777 
001404 
004737 
000137 
005337 
001404 
004737 
000137 
005001 
000207 



020000 lD76b2 
016333 

011460 011354 
015600 

016650 
01 1056 



016643 
016120 

004000 167600 

010024 
010644 
01 3414 

010020 
010644 



000000 
000000 



5$: 
2St 



TST DATACK 
8EQ IS 
RTS PC 
TST ERCNTR 
BEQ NXREAD 
CKSWR 

BIT #SW13»PSWR 
BNE 2S 
TYPE ,MERCT 
MOV ERCNTR»3S 
JSR R5,SGLPEC 
OPEN 

TYPE ,MSUM 
TSTB CKSUM 
BEG 4S 
TYPE ,MBAD 
BR 5S 

T5fPE,MG00D 
TYPE ,MCRLF 
CKSWR 

BIT #SWllr0SWR 
BEQ NXREAD 
JSP PC# REREAD 
JMP EMPBUFF 
DEC SECCNTR 
BEQ EXIT 
JSR PCXREAD 
JMP EMPBUFF 
CLR Rl 
RTS PC 



jWAS This READ CHECK CAUSED ti^ A CRC ERROR 
jNO 

jYES, RETURN TO CRC HANDLER 
;WAS THERE ERRORS 
;N0 ERRORS 

>YES,TEST DON'T PRINT SWITCH 

JDON'T PRINT THE ERROR 

jPRINT THE TOTAL DATA ERROR COUNT 



{INDICATE IF CHECK SUM WAS GOOD OR HAD ERRORS 



jTESI LOOP ON ERROR SWITCH 
J IF NOT SET GO TO NEXT SECTOR 
jYES,GO REREAD THE DATA 
|G0 RECHECK THE DATA 



jREAD THE NEXT SECTOR 
ICLEAR THE ONE READ FLAG 



BYTECNTRl 
BADBYTE! 
GOODBYTEJ 
ERCNTR! 

;AN INTERRUPT DID NOT OCCURE AT A FUNCTION DONE FLAG, 



3144 


01 1462 


104405 




NOlNTERl 


CKSWR 


3145 


011464 


032777 


020000 


167524 


BIT «SW13»PSWR 


3146 


01 1472 


001006 






BNE 1$ 


3147 


011474 


004737 


010566 




JSR PCERMSG 


3148 


011500 


104400 


016256 




TYPE ,MINTER 


3149 


01 1504 


104400 


016120 




TYPE ,MCRLF 


3150 


011510 


104405 




ISJ 


CKSWR 


3151 


011512 


005777 


167500 




TST 9SWR 


3152 


011516 


100001 






BPL C0NT21 


3153 


01 1520 


000000 




HLT15I 


HALT 


3154 


011522 


004737 


011526 


C0NT21 ! 


JSR PCINTSERV 



»TEST DON'T PRINT ERROR SWITCH 

JTYPE NO INTERRUPT ON DONE ERROR 

jTEST HALT ON ERROR SWITCH 
IHALT ON ERROR 

>JSR TO INTSERV AS IF IT WAS AN INTERRUPT 
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SEU 0096 



3156 












,SBTTL 


INTERRUPT SERVICE 






3157 




















3158 


01 1526 


117737 


167456 


012146 


INTSERVl 




MOVB #RXdB,ASTAT 




jSAVe the ERROR AND STATUS WORD 


3159 


011534 


005777 


167446 








TST &RXCS 




iTEST THE ERROR FLAG 


3160 


01 1540 


100444 










BMI RXERROR 




; THERE WAS AN ERROR GO REPORT IT 


3161 


011542 


032737 


000004 


012146 






BIT #BIT2#ASTAT 




jIS INIT DONE SET 


3162 


01 1550 


001402 










BEO 2S 




;N0, CONTINUE 


3163 


0U552 


0001 37 


012006 








JMP RXPWP 




>YES, REPORT POWER FAILED AND RESTART 


3164 


011556 


032737 


000003 


012146 


2Ss 




BIT #3,ASTAT 




JARE PAR Or CrC BITS SET 


3165 


011564 


001021 










BNE IS 




J YES GO REPORT ERROR 


3166 


011566 


132777 


000040 


167412 






BITB #DONEBIT,eRXCS 


JIS DONE SET 


3167 


011574 


001012 










BNE 3S 




; IF SET RETURN TO TEST 


3168 


011576 


104405 










CKSWR 






3169 


011600 


032777 


020000 


167410 






BIT »SW13#&SWR 




jTEST DON'T PRINT ERROR SWITCH 


3170 


011606 


001004 










BNE 4$ 




iDON'T PRINT 


3171 


011610 


104400 


016311 








TYPE ,MUKN1NT 




jTYPE UNKNOWN INTERRUPT 


3172 


011614 


104400 


016120 








TYPE ,MCRLF 






3173 


011620 


000002 






4S| 




RTI 




jRETURN FROM THE INTERRUPT 


3174 


011622 


062706 


000006 




3Ss 




ADD «6,SP 




JBYPASS INTERRUPT POINTERS ON STACK 


3175 


0U626 


000207 










PTS PC 




IRETURN TO PROGRAM 


3176 


0U630 


104405 






ISl 




CKSWR 






3177 


011632 


032777 


020000 


167356 






BIT #swi3#eswR 




jTEST Don't PRINT ERROR SWITCH 


3178 


011640 


001004 










BNE RXERROR 






3179 


011642 


104400 


016614 








TYPE ,MNOFLAG 




jTYPE NO STATUS ERROR ERROR 


3180 


01 1646 


1 04400 


016120 








TYPE ,MCRLF 






3181 


01 1652 


005237 


006472 




RXEPRORs 




INC ERRORS 




jAN ERROR INDICATOR 


3182 


011656 


001775 










BEQ RXERROR 






3183 


01 1660 


052737 


000400 


012724 






BIS 88lT8#UNlTSEL 




jSET HARD ERROR FLAG 


3184 


01 1666 


012777 


00001 7 


167312 


2SS 




MOV iRDER,PRXCS 




jGET THE ERROR CODE 


3185 


01 1674 


004737 


006574 




3S J 




JSR PC » SDN 




jTEST FOR DONE FLAG 


3186 


01 1700 


000775 










BR 3$ 






3187 


01 1702 


032777 


000002 


167300 






BIT »2,9PXDB 




JWAS THERE A PARITY EPROR 


3188 


011710 


001 403 










BEQ IS 




jNO, CONTINUE 


3189 


011712 


0047 37 


012022 








JSR PC,PARTYP 




jYES,GO RtpORT THE PARITY ERROR 


3190 


0n7lb 


000763 










bR 2S 




JREISSUE THE FUNCTION 


3191 


011720 


117737 


167264 


012150 


IS ! 




MOVR 8RXDB,BSTAT 




ISAVE THE ERROR CODE IN B STATUS 


3192 


01 1726 


104405 






NOPRNTS 




CKSi^R 






3193 


011730 


032777 


020000 


1 67260 






BIT lSW13#gSWR 




;TEST PRINT ERROR SWITCH IN SwR 


3194 


011736 


001020 










BNE 2S 






3195 


01 17 40 


104400 


016120 








TYPE ,MCRLF 






3196 


011744 


004737 


010566 








JSR PCERMSG 




; TYPE ERROR AND MESSAGES 


3197 


01 17 50 


I \r H }pvi 










TYPE ,MRXCS 




iTYPE COMMAND STATUS REGISTER 


3198 


011754 


013746 


007702 






MOV 


FUNCTION, -(SP3 


f SAVE 


FUNCTION FOR TYPEOUT 


3199 


01 1760 


104402 








TYPOS 




>G0 TYPE--OCTAL ASCII 


3200 


011762 


006 








,B\rE 


6 j?TiPt 


6 DIGIT(S) 


3201 


011763 


000 








.BYTE 


; 


ISUPPRESS LEADING ZEROS 


3202 


011764 


004737 


012^^50 








JSR PCTYPAOR 




STYPE ADDRESSES AND RUN CONDITIONS 


3203 


01 1770 


104400 


016120 








TYPE ,MCRLF 






3204 


011774 


004737 


01 2220 








JSR PCrTYPCODE 




JPRINT THE STATUS REGISTERS 


3205 


01 2000 


062706 


000004 




2S! 




ADD )»4,SP 




jMOVE ERROR RtTURN TO TOP OF STACK 


3206 


012004 


000207 










RTS PC 






3207 




















3208 


012006 


104400 


016665 




RXPWR! 




TYPE »MRX11 




;ONLY THE RXll POWER HAS FAILED 


3209 


012012 


Ui440£^ 


015270 








TYPE rSPOWER 




;PRINT POWER FAILED 


3210 


012016 


0001 37 


00! 350 








JMp RESTART 




jGO TO RESTART 
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321 1 


01 2022 


104400 


016212 




PARTYP! 




TYPE ,MRXCS 




3212 


012026 


017746 


167154 






MOV 


PRXCS,-CSP) 


;fSAVE 9RXCS FOR TYPEOUT 


3213 


012032 


104402 








TYPOS 




J, 'GO TYPE--OCTAL ASCII 


3214 


012034 


006 








.BYTE 


6 


;;TYPE 6 DIGIT(S) 


3215 


012035 


000 








.BYTE 





JjSUPPRESS LEADING ZEROS 


3216 


012036 


104400 


016577 








TYPE ,MPAP 




3217 


012042 


104400 


016120 








TYPE ,MCRLF 




3218 


012046 


000207 










PTS PC 




3219 


















3220 


012050 


104400 


016020 




TYPADR; 




TYPE ,MTRK 


iTYPE TRACK AqdRESS 


3221 


012054 


01 3746 


013126 






MOV 


TARGET, -(SP) 


;|SAVE TARGET FOR TYPEOUT 


3222 


012060 


104402 








TYPOS 




; jGO TYPE--OCTAL ASCII 


3223 


012062 


003 








.BYTE 


3 


;>TYPE 3 DIGIT(S) 


3224 


012063 


000 








.BYTE 





}f SUPPRESS LEADING ZEROS 


3225 


012064 


104400 


016047 








TYPE ,MSECT 


jTYPE SECTOR ADDRESS 


3226 


012070 


01 B737 


013416 


012144 






MOV TSECT0R,2$ 




3227 


012076 


042737 


177740 


01214 4 






BIC il7774k5,2S 


jCLEAR ALL BUT SECTOR ADDRESS 


3228 


012104 


01 3746 


012144 






MOV 


2S, -CSP) 


;;SAVE 2S FOR TYpEOUT 


3229 


012110 


104402 








TYPOS 




;jGO TYPE--OCTAL ASCII 


3230 


01211 2 


002 








.BYTE 


2 


J jTYPE 2 DIGIT(S) 


3231 


012113 


000 








.BYTE 





^SUPPRESS LEADING ZEROS 


3232 


012114 


104400 


016115 








TYPE ,OBLSP 




3233 


012120 


032737 


000020 


012724 






BIT »BIT4, UNITSEL JWHITCH DRIVE IS BEING USED 


3234 


012126 


00100 3 










BNE IS 




3235 


012130 


104400 


016163 








TYPE ,MUNIT0 


jTYPE UNIT 


3236 


012134 


000402 










BR 4S 




3237 


012136 


104400 


016173 




1$: 




TYPE ,MUNITl 


JTYPE UNIT 1 


3238 


012142 


000207 






4$s 




RTS PC 




3239 


012144 


000000 






2Sj 




OPEN 




3240 


















3241 


012146 


000000 






ASTATI 









3242 


012150 


000000 






BSTATJ 









3243 


















3244 


















3245 


012152 


117737 


167032 


012146 


RDCODEJ 




HOVB 0RXDB,ASTAT 


jSAVE THE A STATUS 


3246 


012160 


012777 


000017 


167020 


2S: 




MOV »RDER,giRXCS 


;READ THE B STATUS REGISTER 


3247 


012166 


004737 


006574 




3$! 




JSR PC, SDN 


jWAlr FOR DONE FLAG 


3248 


012172 


000775 










BR 3$ 




3249 


012174 


032777 


000002 


167006 






BIT #2,0RXDB 


;WAS THERE A PARITY ERROR 


3250 


012202 


001403 










BEO IS 


J NO»CONTINUE 


3251 


012204 


004737 


012022 








JSR PC, PARTYP 


fYES, REPORT THE PARITY ERROR 


3252 


012210 


000763 










BR 2S 


jRETRY READING STATUS B 


3253 


012212 


117737 


166772 


012150 


ISl 




MOVB BRXDBrBSTAT 


;SAVE THE B STATUS CODES 


3254 


012220 


104400 


016222 




TYpCODEj 




TYPE ,MASTAT 


iTYPE THE CONTENTS OF THE TWO 


3255 


012224 


013746 


012146 






MOV 


ASTAT»-CSP) 


J ISAVE ASTAT FOR TYPEOUT 


3256 


012230 


104402 








TYPOS 




J |G0 TYPE--OCTAL ASCII 


3257 


012232 


003 








.BYTE 


3 


fiTYPE 3 DIGITCS) 


3258 


012233 


000 








.BYTE 





If SUPPRESS LEADING ZEROS 


3259 


012234 


104400 


016106 








TYPE ,TAB 




3260 


012240 


104400 


016236 








TYPE ,MBSTAT 




3261 


012244 


013746 


012150 








MOV BSTAT.-(SP) 




3262 


012250 


104403 










TYPON 




3263 


012252 


104400 


016120 








TYPE , MCRLF 




3264 


012256 


000207 










RTS PC 
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SEU 009B 



3265 






3266 






3267 






3268 






3269 






3270 






3271 






3272 






3273 












3275 






3276 


01 2260 


012 704 




012264 


005037 


3278 


012270 


1 3 705 






17 D J w S 






kJloU i / 3 


1 TO 1 


012 302 


012 326 






012 340 


328 3 






3284 


012 310 


01 2412 


3285 




Ml 1 d T 01 




W 1 1 1 4 
a 1 •5 1 1 ^ 


i 1 A A iTi 
w I < 1 * W 






01 2450 


aoea 


01 23 20 


012 4 7 








3290 






3291 


012 322 


c/ "y IP It? %3 




w I 2 3 2 4 


000000 




















3 296 












3298 






3299 






33013 


012326 


005037 


33fc)i 


012332 


004737 


3302 


012336 


000775 


3303 






33kJ4 






3305 






3306 






3307 






3308 






3309 






3310 


01 2340 


1 12737 


3311 


012346 


00077 1 


3312 







.SBTTL PATTFRN GENERATOR 

JNOTE! ALL DATA PATTERNS WILL BE MODIFIED SO THE FIRST BYTE WILL 
ICONTAIN THE TRACK ADDRESS, THE SECOND BYTE WILL CONTAIN THE UNlf 
INUMBER AND SECTOR ADDRESS IN WHICH THE DATft IS WRITTEN, THE MOST 
ISIGNIFICANT BIT OF THIS SECOND BYTE INDICATES THE UNIT, UNIT 
,IF »0« UNIT 1 IF "1", THE LAST TWO BYTEs CONTAIN THE CHECK SUM, 



017404 
012536 
012324 



GLTFATTERNI 



MOV #BUFADR»R4 
CLR SUM 
MOV PAT,R5 
ASL R5 

JMP iPATTERNSCPS) 

DATA0 

DATAl 

FLOAT0 

FLOATl 

PAT125 

PAT314 

COUNT 

RANDATA 



jSET ADDRESS OF FIRST DATA BYTE 

|SET UP FOp ACCUMULATION OF CHECK SUM 

jGET PATTERN BITS 



;000 DATA BYTE 
>377 DATA BYTE 
»FLOAT A THROUGH ALL I'S 
iFLOAT A 1 THROUGH ALL 0'S 
; 125/052 DATA WORD 
J314/063 DATA WORD 
JINCRUMENT DATA PATTERN 
;RANDOM DATA BYTE 



DATABYTE! 
PAT! 



jLOAD SOFTWARE BUFFER WITH ALL ZEROS 
J PAT = 



012322 
01251H 



DftTA0! 
PATGEN • 



CLP DATABYTE 
JSR PC, LOAD 
BR PATGEN 



;G0 LOAD THE DATA BUFFER 



00*^377 012322 DATAi: 



JLOAD SOFTWARE BUFFER WITH ALL ONES 
; PAT = 1 



MOVH »377, DATABYTE 
BR PATGEN 
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3 313 








3314 








3315 








3316 


012350 


1 12737 


0k1037b 


3317 


012356 


000261 




3318 


012360 


012702 


000000 


3319 


H12364 


103001 




3320 


012366 


005202 




3321 


012370 


004737 


012510 


3322 


012374 


000241 




3323 


012376 


005702 




3324 


012400 


001401 




3325 


012402 


000261 




3326 


012404 


106137 


012322 


3327 


012410 


000763 




3328 








3329 








3330 








3331 








3332 








3333 








3334 


012412 


005037 


012322 


3335 


012416 


000757 




3336 








3337 








3338 








3339 








3340 








3341 








3342 








3343 


012420 


112737 


000125 


3344 


012426 


004737 


012510 


3345 


012432 


105137 


012322 


3346 


01243b 


000773 




3347 








3348 








3349 








3350 








3351 








3352 








3353 








3354 


012440 


U2737 


000314 


3355 


012446 


000767 




3356 








3357 








3358 








3359 








3360 








3361 








3362 


012450 


012737 


000377 


3363 


012456 


005237 


012322 


3364 


012462 


004737 


012510 


3365 


012466 


000773 
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I FLOAT A THROUGH OWES IN SOFTWARE BUFFER 
; PAT = 2 



FLOAT0J 
XPATGEN t 
ISi 



MOVB »37b, DATABYTE 
SEC 

MOV #0,R2 
BCC 2S 
INC R2 
JSP PC»LOAD 
CLC 

TST P2 
BEG 3S 
SEC 

PDLB DATABYTE 
BR Is 



;SET UP A ONES FIELD 

;SET THE C biT TO ROTATE THROUGH THE DATA 

iCLR R2 (CAN'T USE "CLRm IT CLEARS "C" BIT) 

IBP IF "C" BIT IS CLEARED 

fSET R2 IF "C» BIT IS SET 

JGO LOAD THE DATA BUFFER 

fCLEAR THE "C" BIT 

lis R2 NONZERO 

lYES, SET THE "C» BIT 



IFLOAT A 1 THROUGH ALL ZEROS IN SOFTWARE BUFFER 
I PAT = 3 



CLR DATABYTE 
BP XPATGEN 



I LOAD SOFTWARE BUFFER WITH ALTERNATING 1 AND FOR 
|0N£ BYTE AND THE COMPLIMENT INTO THt NEXT 
I PAT = 4 



PAT125S 
XXPATGEN. 



MOVB M25, DATABYTE 
JSR PC, LOAD 
COMB DATABYTE 
BP XXPATGEN 



I I »»»*♦#»♦#♦»*♦•#»##*»»♦♦♦#*#•»##♦♦##♦#»##*♦♦»•«###»»#»♦♦♦#»#»#♦## 

ILOAD SOFTWARE BUFFER WITH ALTERNATING PAIRS OF 1 AND AND 
ICOMPLIMENT INTO THE NEXT 
I PAT = 5 

PAT3141 MOVB # 3 1 4 , DATABYTE 

BR XXPATGEN 

I I 

iLOAD SOFTWARE BUFFER WITH COUNT PATTERN 
I PAT = 6 

COUNT! MOV #377, DATABYTE 

ISl INC DATABYTE 

JSP PCLOAD 

BR IS 
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SEQ 01M0 



3366 








3367 








3368 








3369 








3370 








3371 


012470 


004737 


012540 


3372 


012474 


U3737 


012632 


3373 


012502 


004737 


012510 


3374 


012506 


000770 




3375 








3376 


012510 


063737 


012322 


3377 


012516 


113724 


012322 


3378 


012522 


022704 


017604 


3379 


012526 


001401 




3380 


012530 


000207 




3381 


012532 


005726 




3382 


012534 


000207 




3383 








3364 


012536 


000000 




3385 








3386 


012540 


012700 


000001 


3387 


012544 


063700 


012626 


3388 


012550 


063700 


012630 


3389 


012554 


042700 


170000 


3390 


012560 


000241 




3391 


012562 


006100 




3392 


012564 


006100 




3393 


012566 


010037 


012626 


3394 


012572 


005000 




3395 


012574 


013700 


012630 


3396 


012600 


006000 




3397 


012602 


006000 




3398 


012604 


063700 


01 2b26 


3399 


012610 


042700 


1 70000 


3400 


012614 


010037 


012630 


3401 


012620 


010037 


012632 


3402 


012624 


000207 




34i<)3 








3404 


012626 


001234 




3405 


012630 


000765 




3406 


012632 


300300 




3407 









jLOAD SOFTWARE BUFFER WITH RANDOM DATA PATTERN 
{ PAT s 7 



012536 load: 



RANI ! 
RAN2: 
RANUM; 



JSR PCfRANGEN 
MOVB RANUM, DATA8YTE 
JSR PC, LOAD 
BR RANDATA 

ADD OATAbYTE»SUM 
MOVB DATABYTE, (R4)+ 
CMp #BUFADR+200,R4 
&EQ 1$ 
RTS PC 
TST (SP)+ 
RTS PC 



MOV m,m 

ADD RANl,Ri(3 
ADD RAN2»R0 
BIC #170000, R0 
CLC 

ROL R0 

RUL R0 

MOV R0,RAN1 

CLR R0 

MOV RAN2,R0 

ROR R0 

ROR R0 

ADD RAN1,R0 

BIC »170000,R0 

MOV R0,RAN2 

MOV R0, RANUM 

RTS PC 

001234 
000765 



JGET RANDOM NUMBER 



)ACCUMULATe the PATTERN CHECK SUM 

iLOAD THE DATA BUFFER 

jHAVE 128 BYTES BEEN GENfcRATED 

>IF YES, RETURN TO TEST 

I IF NO, RETURN TO PATTERN GENERATOR 

J TAKE PATTERN RETURN ADDRESS OF STACK 

; RETURN TO TEST 
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3408 
3409 








3410 








3411 








3412 








3413 








3414 








3415 








3416 








3417 








3418 








3419 








3420 








3421 








3422 








3423 


012634 


032737 


000100 


3424 


012642 


001012 




3425 


012644 


105737 


012724 


3426 


012650 


100007 




3427 


012652 


042737 


040020 


3428 


012660 


052737 


000100 


3429 


012666 


000207 




3430 


012670 


005737 


012724 


3431 


012674 


100012 




3432 


012676 


032737 


040000 


3433 


012704 


001006 




3434 


012706 


042737 


000100 


3435 


012714 


052737 


040020 


3436 


012722 


000207 




3437 








3438 








3439 








3440 


012724 


000000 




3441 








3442 








3443 








3444 


012726 


005737 


012724 


3445 


012732 


100006 




3446 


012734 


032737 


040000 


3447 


012742 


001002 




3448 


012744 


062716 


000002 


3449 


012750 


000207 




3450 
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.SbTTL UNIT SELECTION 



{TEST FOR SELECTED UNITS, DRIVE READY, AND USED CONDITIONS 
jALSO CONTAINS A "HAD ERROR" FLAG TO BE TESTED AT EOp, 
jTHE BITS n UNITSEL ARE USED AS FOLLOWS 
> 

;BIT15 sUNIT 1 SELECTED VIA SWR 
;BIT14 sUNIT I USED bIT 
;BIT8 sThlS PASS HAD AN ERROR 
JBIT7 =UNIT SELECTED VIA SwP 
JBIT6 sUNlT USED BIT 

;BIT4 sUNIT SELECTION FOR FUNCTION WORD 



012724 GKTUNIT: 



01 2724 
012724 



012724 
012724 



BIT KBITbiUNlTSEL 
BNE 1$ 

TSTB UNITSEL 
BPL IS 

BIC »40020»UNITSEL 

BIS »BIT6, UNITSEL 

RTS PC 

TST UNITSEL 

BPL 2S 

BIT #BIT14, UNITSEL 
BNE 2S 

BIC »BIT6, UNITSEL 
BIS »40020#UNITSEL 
RTS PC 



;WAS UNIT JUST USED 
fUNiT USED CHECK UNIT I 
|WAS UNIT SELECTED 
JNO GO TO UNIT 1 

jCLEAR UNIT 1 USED BIT AND FUNCTION (JNlT BIT 
ISET UNIT USED BIT 

J WAS UNIT 1 SELECTED 
;N0 RETURN 

jHAS UNIT 1 BEEN USED 
J YES RETURN 

{CLEAR UNIT USED BIT 

{SET UNIT 1 USED BIT AND FUNCTION UNIT BIT 



{TEST THAT ALL UNITS HAVE BEEN ACCESSED 



TST UNITSEL 
BPL IS 

BIT «BIT14, UNITSEL 
BNE 1$ 
ADD »2^0SP 
RTS PC 



fIS UNIT 1 SELECTED 
}N0 RETURN 

jYES HAS IT BEEN USED 
I YES RETURN 

{BYPASS NOT DONE RETURE ON STACK 
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3451 










3452 










3453 










3454 










3455 










3456 










3457 










3458 










3459 










34^0 










3461 


012752 


105737 


013136 




3462 


012756 


100442 






3463 


012760 


042737 


100200 


001 200 


3464 


01276b 


005737 


001200 




3465 


012772 


001 440 






3466 


012774 


052737 


100000 


013136 


3467 


013002 


113737 


001200 


013126 


3468 


013010 


005037 


013134 




3469 


013014 


113737 


001201 


0} 31 34 


3470 


013022 


005037 


013132 




3471 


01 3026 


U 3737 


001200 


013132 


3472 


013034 


013737 


013134 


013124 


3473 


013042 


163737 


01 3132 


01 3124 


3474 


013050 


005237 


013124 




3475 


01 3054 


052737 


100200 


001 200 


3476 


013062 


000207 






3477 


01 3064 


012737 


000013 


013124 


3478 


013072 


000770 






3479 


01 3074 


012737 


000004 


013124 


3480 


01 3102 


000764 






3481 










3482 










348 3 










3484 










3485 


013104 


113737 


013126 


013130 


3486 


01 3112 


005737 


0131 36 




3487 


013116 


001410 






3488 


013120 


100446 






3489 


013122 


000463 






3490 










3491 


013124 


000000 






3492 


013126 


000000 






3493 


013130 


000000 






3494 


013132 


000000 






3495 


013134 


000000 






3496 


013136 


000000 






3497 











.SBTTL TRACK SEQUENCE SELECTION 

I INITIALIZE TRACK SEQUENCE 

jNOTEj IE WORD SEQUEN IS CLEARED THEN TRACK SEQUENCE IS FROM 0-52-53-114 ONLY 

JIF BIT 15 OF SEQUEN Is "1" THEN TRACK SELECTION Is INC, BETWEEN SELECTED OD/ID LIHlTS, 

; IF BIT 7 IS "1" THEN TEST 25 DECREMENT SEQUENCE IS REQUIRED, 



IS J 
2SJ 
3SS 



TSTB SEQUEN 
BMI 2S 

BIC »100200#OD 
TST OD 
BEQ 3S 

BIS #BIT15, SEQUEN 
HOVB OD, TARGET 
CLR XID 
MOVB I0#XID 
CLH XOD 
MOVR OD,XOO 
MOv XID,TRKCNTR 
SUB XOD,TRKCNTP 
INC TRKCNTR 
BIS «I100200»OD 
RTS PC 

MOV »13»TPKCNTR 
BR IS 

MOV »4,TPKCNTR 
BR IS 



>IS THIS TEST 26 SPECIAL SEQUENCE 

JYES, DEC FROM TRACK 12 TO 

fCLEAR FIRST USED BITS 

jTEST CONTENTS OF ID,OD FOR 

jSEQUENCE wilLL BE FROM »HOME"-52-b3-l 14-0 

JLIMITS WERE SELECTED* INC FROM OU TO ID, 

flNlT OD AS PRESENT TRACK 

jINIT WORKING ID AND OD LOCATIONS 



;SET UP NUMBER OF TRACK MOVEMENTS 

JSET FIRST TIME BITS IN ID,OD 

}SET TRACK COUNTER 

ISET THE TRACK COUNTER 



MOVB TARGET, PRESTRK 
TST SEQUEN 
BEQ LIMTRK 
BMI SEQl 
BB SfcQ2 



J RESET TO PRESENT TRACK 

;IS THIS THE LIMITED SEQUENCE 

JYES, DOING ONLY 0-52-53-114 

|N0, SEQUENCE IS BETWEEN SELECTED LIMITS 

JN0,THIS Is TEST 26 DEC SEQUENCE 



TPKCNTRl 

TARGET! 

PRESTRK J 

XOD: 

XIOl 

SEQUEN: 
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3498 


















3499 


















3500 












jLIMITED SEQUENCE, ACCESS 


TRACKS 52 TO 53 TO 114 BACK TO 


3501 


013140 


005737 


001200 




LIMTRK: 


TST OD 




' jTEST HIGH ORDER FIRST TIME BIT 


3502 


013144 


100007 








BPL IS 




;N0T SET, ON TRACK 52 


3503 


01 3146 


012737 


000052 


013126 




MOV #5 2, TARGET 




>G0 TO TRACK 52 


3504 


013154 


042737 


100000 


001200 




bIC »BIT15,0D 




jCLEAR FIRST TIME BIT 


3505 


013162 


000207 








PTS PC 






3506 


013164 


105737 


001200 




is: 


TSTB OD 




jTEST LOW ORDER FIRST TIME biT 


3507 


013170 


100007 








BPL 2$ 




jNOT SET, ON TRACK 53 


3508 


013172 


012737 


000053 


013126 




MOV »53#TARGET 




»G0 TO TRACK 53 


3509 


01 3200 


042737 


000200 


001200 




BIC »BIT7,0D 






3510 


013206 


000207 








RTS PC 






3511 


013210 


0237 2-7 


013126 


0001 14 


2S: 


CMP TARGET, »114 




jIS IT ON TRACK 114 


3512 


013216 


001 404 








BEQ 3S 




jYES,GO TO TRACK 


3513 


01 3220 


012737 


0001 14 


013126 




MOV #114, TARGET 




|N0, GO TO TRACK 114 


3514 


013226 


000207 








PTS PC 






3515 


013230 


005037 


01 3126 




3S: 


CLR TARGET 




jGO TO TRACK 


3516 


013234 


000207 








RTS PC 






3517 


















3518 










} 1 ******** 


3519 


















3520 












J INCREMENT FROM OD+1 TO ID 


AND 


RETURN TO OD 


3521 












J USED WHEN TRACK LIMITS ARE SELECTED 


3522 


















3523 


013236 


042737 


100200 


001200 


SEQl : 


BIC »100200,OD 




jCLEAR FIRST TIME BITS 


3524 


013244 


123737 


013134 


013130 




CMP8 XID,PRESTRK 




> PRESENT TRACK EQUAL TO ID 


3525 


013252 


001304 








BNE IS 




JNO GET NEW TRACK 


3526 


013254 


113737 


001200 


013126 




MOVB OD, TARGET 




;YES RETURN TO OD 


3527 


013262 


000207 








RTS PC 






3528 


013264 


005237 


013126 




IS: 


INC TARGET 




J ADD 1 TO TARGET TRACK 


3529 


013270 


000207 








RTS PC 






3530 


















3531 










} !«»««««« 


3532 


















3533 












fDECPEMENT FROM ID = 12 TO 


OD 


: 


3534 












jUSED IN TEST 26 ONLY 






3535 


















3536 


013272 


005737 


001200 




SEQ2: 


TST OD 




jFIRST TIME BIT SET 


3537 


013276 


100007 








BPL IS 




|N0 GET NEXT TRACK 


3538 


013300 


042737 


100200 


001200 




BIC #100200,00 




lYES CLEAR FIRST TIME BITS 


3539 


013306 


012737 


000012 


013126 




MOV #12, TARGET 




jMOVE OUT 10 TRACKS 


3540 


013314 


000207 








RTS PC 






3541 


013316 


005337 


013126 




ISl 


DEC TARGET 




jMOVE TO NEXT TRACK 


3542 


013322 


000207 








RTS PC 
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3543 
3544 
3545 
3546 
3547 
3548 
3549 
3550 
355i 
3552 
3553 
3554 
3555 
3556 
3557 
3558 
3559 
3560 
3561 
3562 
3563 
3564 
3565 
3566 
3567 
3568 
3569 
3570 
357i 
3572 
3573 
3574 
3575 



.SBTTL SECTOR SELECTION 



; SECTOR INITIALIZATION AND SELECTION 



013324 
013330 
013332 
013336 
013344 
013352 
013360 
013364 
013370 
013376 

013404 
013412 

013414 
013416 
013420 

013422 
013430 
013436 
013444 
013446 
013454 
013462 
013466 
013474 
013476 
01 3504 



005737 
001005 
005237 
112737 
113737 
163737 
005237 
105037 
113737 
162737 

012737 
000207 



001202 

001202 
000032 
001203 
001202 
013414 
013415 
001202 
000003 



042737 
062737 
123737 
002010 
113737 
063737 
005237 
012737 
001403 
052737 
000207 



000200 
000003 
001203 

001302 
013420 
013420 
000020 

000200 



001203 
013414 
013414 



013416 
013416 



000001 013420 



013416 
01 3416 
013416 

013416 
013416 

012724 

013*16 



IMTSECTORJ 



SECCNTR! 
TSECTQRl 
INTLEAV! 



TST FIRST 
BNE IS 
INC FIRST 
MOVB #32, LAST 
MOVB LAST, SECCNTR 
SUB FIRST, SECCNTR 
INC SECCNTR 
CLRB SECCNTR+1 
MOVB FIRST, TSECTOR 
SUB 83, TSECTOR 

HOV 81 , INTLEAV 
PTS PC 



BIC #200, TSECTOR 
ADD #3, TSECTOR 
CMPB LAST, TSECTOR 
BGE IS 

MOVB FIRST/TSECTOR 
Add InTLEAV, TSECTOR 
INC INTLEAV 
BIT »BIT4,UN1TSEL 
BEQ 2S 

BIS »BIT7, TSECTOR 
RTS PC 



jTEST FIRST AND LAST FOR 
; SECTORS SPECIFIED USE THEM 
JNONE SPECIFIED SET FIRST TO 
fSET LAST TO MAXIMUM 
fSET UP SECTOR COUNTER 



jPUT FIRST SECTOR IN TARGET SECTOR 

jSUfa 3 FROM TSECTOR AS FIRST TIME THROUGH 

>1T GETS ADDED BACK ON, 

}SET INTERLEAVE OFFSET 



jClear The unit bit before testing 

|ADD 3 for interleaving 

;NE1« SECTOR IS WITHIN LIMITS 
{RESET TARGET SECTOR TO INTERLEAVE 
J ADD ON INTERLEAVE OFFSET VALUE 
jUP DATE THE OFFSET VALUE 
jIS THIS UNIT 

jNO, SET UNIT IDENTIFIER IN TARGET SECTOR 
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3576 








.SBTTL 


TYPE ROUTINE 




3577 
















3578 
















3579 








;*H0UTINE TO TYPE ASCIZ MESSAGE 


. MESSAGE MUST TERMINATE WITH A bYTE. 


3580 








>»the routine w 


ILL INSERT A NUMBER Of NULL CHARACTERS AFTER A LINE l-EED. 


3581 








;*N0TE1 t 


SNuLL CONTAINS 


THE CHARACTER TO pE USED AS THE FILLER CHARACTER, 


3582 








j*N0TE2 




SFILLS CONTAINS 


THE NUMBER OF FILLER CHARACTERS REQUIRED, 


3583 








; »N0TE3 




SFILLC CONTAINS 


THE CHARACTER TO FILL AFTER. 


3584 








i * 








3585 








;*CALLi 








3586 








USING A TRAP INSTRUCTION 




3587 








1 « 


TYPE 


, MESADR 


JJMESADR IS FIRST ADDRESS OF AN ASCIZ STRlMG 


3588 








;*0R 








3589 








; » 


TYPE 






3590 








1 * 


MESADR 






3591 








; 4 








3592 
















3593 


013506 


105737 


013735 


STYPEl 


TSTB 


STPFLG 


J JIS THERE A TERMINAL? 


3594 


013512 


100002 






BPL 


15 


jlBR IF YES 


3595 


013514 


000000 






HALT 




; J HALT HERE IF NO TERMINAL 


3596 


013516 


000407 






BR 


38 


; jLEAVE 


3597 


013520 


010046 




IS! 


HOV 


R0,-(SP) 


; J SAVE R0 


3598 


013522 


017600 


000002 




MOV 


§2(SP),R0 


;jGET ADDRESS OF ASCIZ STRING 


3599 


013526 


112046 




28: 


MOVB 


(R0)+,-(SP) 


!>PUSH CHARACTER TO BE TYPED ONTO STACK 


3600 


013530 


001005 






BNE 


48 


JJBR IF IT ISN'T THE TERMINATOR 


3601 


013532 


005726 






TST 


(SP) + 


;jIF TERMINATOR POP IT OFF THE STACK 


3602 


013534 


012600 




60S! 


MOV 


(SP)+,R0 


!>RESTORE R0 


3603 


013536 


062716 


000002 


3S! 


ADD 


S2, (SP) 


; lADJUST RETURN pC 


3604 


013542 


000002 






RTI 




; 1 RETURN 


3605 


013544 


122716 


00001 1 


4$l 


CMPB 


»HT, (SP) 


;iBRANCH IF <HT> 


3606 


013550 


001430 






BEQ 


8S 




3607 


013552 


122716 


000200 




CMPB 


#CRLF, (SP) 


nBRANCH IF NOT <CRLF> 


3608 


013556 


001006 






BNE 


5S 




3609 


013560 


005726 






TST 


(SP) + 


nPOP <CR><LF> EQUIV 


3610 


013562 


104400 






TYPE 




J jTYPE A CR AND LF 


3611 


013564 


013737 






SCRLF 






3612 


013566 


105037 


013722 




CLRB 


SCHARCNT 


;>CLEAR CHARACTER COUNT 


3613 


013572 


000755 






BR 


2$ 


;;GET NEXT CHARACTER 


3614 


013574 


004737 


013656 


5S! 


JSR 


PCSTYPEC 


nGO TYPE THIS CHARACTER 


3615 


013600 


123726 


013734 


6S! 


CMPB 


SFILLC, CSP)+ 


;|IS IT TIME FOR FILLER CHARS,? 


3616 


013604 


001350 






BNE 


2S 


nir NO GO GET NEXT CHAR, 


3617 


013606 


013746 


013732 




MOV 


SNULL,-(SP) 


;»GET » OF FILLER CHARS, NEEDED 


3618 














J f AND THE NULL CHAR, 


3619 


013612 


105366 


000001 


78! 


DECB 


1 (SP) 


nDOES A NULL NEED TO BE TYPED? 


3620 


013616 


002770 






BLT 


6$ 


JIBR IF NO--GO POP THE NULL OFF OF STACK 


3621 


013620 


004737 


013656 




JSP 


PCSTYPEC 


jjgo type a null 


3622 


013624 


105337 


013722 




DECB 


SCHARCNT 


MDO NOT COUNT AS A COUNT 


3623 


013630 


000770 






BR 


78 


nLOOP 


3624 
















3625 








jHORlZONTAL TAB 


PROCESSOR 




3626 
















3627 


013632 


112716 


000040 


881 


MOVB 


#' ,(SP) 


fjREPLACE TAB WITH SPACE 


3628 


013636 


004737 


013656 


98! 


JSP 


PCSTYPEC 


JJTYPE A SPACE 


3629 


013642 


132737 


000007 013722 




BITB 


#7, SCHARCNT 


t ;BRANCH IF NOT AT 


3630 


013650 


001372 






BNE 


9S 


JITAB STOP 


3631 


013652 


00S726 






TST 


CSP) + 


IJPOP SPACE OFF STACK 
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3632 


01 365 4 


0007 24 








BP 


2S 


nGET NEXT CHARACTER 


3633 


01 3656 


105777 


000044 




STYPECs 


TSTB 


9 8 T PS 


; J W A I T UNTIL PRINTER I S READY 


3634 


01 3662 


1003 75 








BPL 


S T Y PEC 


3635 


01 3664 


116677 


000002 


000036 




MOVB 




;|1jUAU tnAH iU Bfc, TlPtU INTU DATA REG, 


3636 


013672 


122766 


0000 1 5 


000002 




CMP8 




JJiD wnAHALltH A uARRlAGt. RLTURN/ 


36 37 












BNE 


1 & 


J J BRANCH IF NO 




Ml 1 1 iJ< 
K> I i 1 \u £ 










CLRB 


S »<. n AHt. N T 


; J YES^-CLEAR CHARACTER COUNT 




0137^0 


ana AtAt. 








BP 


S TY PEX 


J EXIT 


3640 






00001 2 


000002 


IS J 


CMPB 


*• LF t 2i BP) 


Ills CHARACTER A LINE FEED? 


3641 


013716 


001 402 








BEQ 


S TYPEX 


I I BRANCH IF YES 


3642 


013720 


105227 








IfJCB 


(PC) + 


IjCOUNT THE CHARACTER 


3643 


013722 


000000 






SCHARCNTS .WORD 





JjCHARACTER COUNT STORAGE 


3644 


013724 


000207 






STYPEXj 


RTS 


PC 




3645 


















3646 


013726 


177564 






STPS: 


,^ORP 


1 77564 


jjTTY PRINTER STATUS REG, ADDRESS 


3647 


013730 


177566 






STPB; 


.WORD 


177566 


llTTY PRINTER BUFFER REG, ADDRESS 


3648 


013732 


00^ 






SNULLJ 


,BYTE 





If CONTAINS NULL CHARACTER FOR FILLS 


3649 


013733 


002 






SFILLSI 


.BYTE 


2 


JICONTAINS » OF FILLER CHARACTERS REQUIRED 


3650 


013734 


012 






SFILLCj 


.BYTE 


12 


11 INSERT FILL CHARS. AFTER A "LINE FEED" 


3651 


013735 


000 






STPFLG: 


.BYTE 





||"TERMINAL AVAILABLE" FLAG ( BIT<07>=0=YES ) 


3652 


013736 


077 






SQUESJ 


.ASCII 


"?•• 


JIOUESTION MARK 


3653 


013737 


015 






SCRLFt 


.ASCII 


<15> 


IfCARPAIGE RETURN 


3654 


01 3740 


00001 2 






SLF : 


.ASCIZ 


<12> 


I 1 LINEFEED 
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3655 










.SHTTL 


BINARY 


TO OCTAL (ASCII) 


AND TYPE 




3656 




















3657 














3658 










}#THTS ROUTINE 


IS USED TO CHANGE A Ib-BIT BINARY MjMBER TO A 6-DlGlT 


3659 










I»OCTAL 


(ASCII) 


NUMBER AND TYPE 


IT. 




3660 










;»STYPOS---ENTEP HERE TO SETUP 


SUPPRESS ZEROS AND NUMBER OF DIGITS 


TO TYPE 


3661 










|*CaLL: 










3662 












MOV 


NUM, -(SP) 


JINUHBER TO BE TyPED 




3663 












TYPOS 




llCALL FOR TYPEOUT 




3664 










I * 


.BYTE 


N 


?fN=l TO 6 FOR NUMBER OF DIGITS TO 


TYPE 


3665 










■ * 


.BYTE 


H 


;|M=1 OR 




3666 










• * 






I 1 1 = TYPE LEADING ZEROS 




36b7 
















?|0=SUPPrESS LEADING ZEROS 




3668 










• » 










3669 










I #STYPON -ENTER HERE TO TYPE 


OUT WITH THE SAME PARAMETERS AS THE 


LAST 


3670 










}*STYPO£ 


np STYPOC 






3671 










>»CALL: 










3672 












MOV 


NUM,-(SP) 


;|NUMBER TO BE TYPED 




3673 












TYPON 




llCALL FOP TYPEOUT 




3674 










J * 










3675 










}*STYPOC 


--"ENTER HERE FOR TYPFOUT OF A lb BIT NUMBER 




3676 










;#CALL! 










3677 










1 * 


MOV 


NUM,-(SP) 


11 NUMBER TO BE TYPED 




3678 










J » 


TYPOC 




IlCALL FOR TYPEOUT 




3679 




















3680 


01 3742 


017646 


000000 




STYP0S5 


MOV 


0{SP3,-(SP) 


llPICKUP THE MODE 




3681 


013746 


1 16637 


000001 


014165 




MOVB 


1CSP),S0FILL 


IlLOAD ZERO FILL SWITCH 




3682 


013754 


112637 


014167 






MOVB 


(SP)t,SOMODE+l 


llNUMBER OF DIGITS TO TYPE 




3683 


013760 


062716 


000002 






ADD 


#2, (SP) 


IJADJUST RETURN ADDRESS 




3684 


01 3764 


000406 








BR 


$TYPON 






3685 


01 3766 


112737 


000001 


014165 


STYPOC: 


MOVB 


1 1 , S0FILL 


llSET THE ZERO FILL SWITCH 




3686 


013774 


112737 


000006 


014167 




MOVB 


»6,S0M0DE+1 


I JSET FOR S1XC6) DIGITS 




3687 


014002 


1 12737 


000005 


014164 


STYPONI 


MOVB 


#5, SOCNT 


IfSET THE ITERATION COUNT 




3689 


014010 


010346 








MOV 


P3,-(SP) 


11 SAVE R3 




3689 


014012 


010446 








MOV 


R4,-(SP) 


nSAVE R4 




3690 


014014 


010546 








MOV 


R5,-(SP) 


nSAVE R5 




3691 


01 4016 


113704 


014167 






MOVB 


SOMODE+1 ,R4 


jjGET THE NUMBER OF DIGITS TO TYPE 




3692 


014022 


005404 








NEG 


R4 






3693 


014024 


062704 


000006 






ADD 


#6,R4 


llSUBTRACT IT FOR MAX, ALLOWED 




3694 


014030 


1 10437 


014166 






MOVB 


R4,$0M0DE 


1 1 SAVE IT FOR USE 




3695 


014034 


113704 


014165 






MOVB 


S0FILL,R4 


nGET THE ZERO FILL SWITCH 




3696 


014040 


016605 


000012 






MOV 


12CSP),R5 


IjPICKUP THE INPUT NUMBER 




3697 


014044 


005003 








CLR 


P3 


IfCLEAR THE OUTPUT WORD 




3698 


014046 


006105 






IS: 


POL 


R5 


JlROTATE MSB INTO "C 




3699 


014050 


000404 








BP 


3S 


nGO DO MSB 




3700 


014052 


006105 






2S| 


ROL 


F5 


1 jFORM THIS DIGIT 




3701 


014054 


006105 








ROL 


R5 




3702 


014056 


006105 








POL 


R5 






3703 


014060 


010503 








MOV 


R5,R3 






3704 


014062 


006103 






3S| 


ROL 


R3 


1 I GET LSB OF THIS DIGIT 




3705 


014064 


105337 


014166 






DECB 


SOMODE 


; ITYPE THIS DIGIT? 




3706 


014070 


100016 








BPL 


7$ 


fjBR IF NO 




3707 


014072 


042703 


177770 






BIC 


#177770, R3 


; I GET RID OF JUNK 




3709 


014076 


001002 








BNE 


4S 


1 1 TEST FOR 




3709 


014100 


005704 








TST 


R4 


1 ISUPPRESS THIS 0? 




3710 


014102 


031403 








BEQ 


5S 


IIBR IF YES 
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3711 


014104 


005204 




4S 1 


INC 


P4 


fjDON'T SUPPRESS ANYMORE 0*S 


3712 


014106 


052703 


000060 




bis 


# '0» R3 


MHAKE THIS DIGIT ASCII 


3713 


0'1 4 I 1 2 


052703 


000040 


5S i 


BIS 


» ' f R3 


>>MAKG ASCII IF NOT ALREADY 


371 4 


014116 


110337 


014162 




MOVB 


R3 » 8S 


jfSAVE FOP TYPING 


3715 


014122 


104400 


014162 




TYPE 


r SS 


jjGO TYPE THIS DIGIT 


3716 


014126 


1 05 3 37 


014164 


7S 5 


DECB 


SOCNT 


; jCOUNT BY 1 


3717 


014132 


003347 






BGT 


2S 


;iBR IF MORE TO 00 


3718 


014134 


002402 






BLT 


6$ 


nBR IF DONE 


3719 


014136 


005204 






lac 


R4 


IllNsURE LAST DIGIT ISN'T A BLANK 


3720 


014140 


000744 






BR 


2S 


J >G0 00 THE LAST DIGIT 


3721 


014142 


012605 




6$: 


MOV 


(SP)4-,R5 


5 1 RESTORE R5 


3722 


014144 


012604 






MOV 


(SP)4-,R4 


}f RESTORE R4 


3723 


014146 


012603 






MOV 


(SP)*,R3 


jfRESTORE R3 


3724 


014150 


016666 


000002 


000004 


MOV 


2(SP),4(SP) 


jlSET THE STACK FOR RETURNING 


3725 


014156 


012616 






MOV 


(SP)*, (SP) 




3726 


014160 


000002 






RTI 




;? RETURN 


3727 


014162 


000 




8S t 


.BYTE 





nSTORAGE FOR AScH DIGIT 


3728 


014163 


000 






.BYTE 





jjTERMIMATOR FOR TYPE ROUTINE 


3729 


014164 


000 




SOCNT! 


.BYTE 





jjOCTAL DIGIT COUNTER 


3730 


014165 


000 




$0F1LLI 


.BYTE 





jjZERO FILL SWITCH 


3731 


014166 


0P0000 




SOMODEi 







jf^UMbEP OF DIGITS TO TYPE 
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3732 








.SBTTL SAVE ANC 


RESTORE P0-P5 


ROUTINtS 






3733 


















3734 












3735 








f*SAVE P0-P5 










3736 








j»CALLj 










3737 








;« SAVPEG 










3738 








;»UPON RETURN FROM SSAVREG THE 


STACK ^ILL 


LOOK LIKE: 




3739 








;» 










3740 








J*TOP — -( + 16) 










3741 








.» ♦2---(+18) 










3742 








,# +4---R5 










3743 








+6---R4 










3744 








}» +8---R3 










3745 








;»+t0---P2 










3746 








,#+12 — -Rl 










3747 








J*+14---R0 










3748 


















3749 


014170 






SSAVREG! 










3750 


014170 


010046 




MOV 


R0#-(SP) 


nPUSH R0 


ON STACK 




3751 


014172 


010146 




MOV 


R1,-(SP) 


J rPUSH Rl 


ON STACK 




3752 


014174 


010246 




MOV 


R2»-(SP) 


JJPUSH R2 


ON STACK 




3753 


014176 


010346 




MOV 


R3,-(SP) 


JjPUSH R3 


ON STACK 




3754 


014200 


010446 




MOV 


P4,-(SP) 


;;PUSH R4 


ON STACK 




3755 


014202 


010546 




MOV 


R5,-(SP) 


; J PUSH R5 


ON STACK 




3756 


014204 


016646 


000022 


MOV 


22{SP),-(SP) 


jjSAVE PS 


OF MAIN FLOW 


3757 


014210 


016646 


000022 


MOV 


22(SP),-(SP) 


nSAVE PC 


OF MAIN FLOW 


3758 


014214 


016646 


000022 


MOV 


22CSP),-(SP) 


J! SAVE PS 


OF CALL 




3759 


014220 


016646 


000022 


MOV 


22(SP),-(SP) 


jfSAVE PC 


OF CALL 




3760 


014224 


000002 




RTI 










3761 


















3762 








|»RESTORE R0-R5 










3763 








>«CALL| 










3764 








»» RESHEG 










3765 


014226 






SRESREGl 










3766 


014226 


012666 


000022 


MOV 


(SP)+,22CSP) 


n RESTORE 


PC OF CALL 




3767 


014232 


012666 


000022 


MOV 


(SP)+,22(SP) 


I f RESTORE 


PS OF CALL 




3768 


014236 


012666 


000022 


MOV 


(SP)+,22(SP) 


n RESTORE 


PC OF MAIN 


FLOW 


3769 


014242 


012666 


000022 


MOV 


(SP)+,22(SP) 


UBESTORE 


PS OF MAIN 


FLOW 


3770 


014246 


012605 




MOV 


(SP)+,R5 


nPOP STACK INTO R5 




3771 


014250 


012604 




MOV 


(SP)+,B4 


jfPOP STACK INTO B4 




3772 


014252 


012603 




MOV 


(SP)4-,B3 


jfPOp STACK INTO R3 




3773 


014254 


012602 




MOV 


(SP)+,R2 


IJPOP STACK INTO R2 




3774 


014256 


012601 




MOV 


(SP)+,R1 


nPOP STACK INTO Rl 




3775 


014260 


012600 




MOV 


{SP)+,R0 


nPOP STACK INTO R0 




3776 


014262 


000002 




RTI 
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SEQ 0110 



3777 










.SBTTL 


TTY INPUT ROUTINE 




3778 


















3779 












3780 


014264 


1 77560 






STKSJ 


.WORD 


177560 


■»TTY KBD STATUS 


3701 


01 4266 


177562 






STKBj 


.WORD 


177562 


jjTTY KBD BUFFER 


3782 










.ENABL 


LSB 




378 J 


















37 8 4 












37 8 5 










>*SOFTWAbE SWITCH REGISTER CHANGE ROUTINE, 


3786 










j«ROUTINE IS 


ENTERED FROM THE TRAP HANDLER, AND WILL 


3787 










;»SERVICE THE 


TEST FOR CHANGE IN 


SOFTWARE SWITCH REGISTER TRAP CALL 












;»WHEN 


OPERATING IN TTY FLAG MODE. 


3789 


01 4270 


022737 


0001 76 


00 1216 


SCKSWRI 


CMp 


#SWREG,SWR 


■fIS THE SOFT-SWR SELECTED? 


^ TO ? 












ONE 


15S 


mBranch if NO 








17 60 






TSTB 


PSTKS 


;CHAR THERE? 


3792 


014 304 


1 0007 1 








bPL 


15s 


nlf NO, DON'T WAIT AROUND 


3793 


014 306 




17 7754 






MOVB 


faSTKB,-(SP) 


nSAVE THE CHAR 


3794 






1 / 1 Oy})0 






BIC 


#"C177, (SP) 


JlSTHlP-OFF THE ASCII 


3795 


HI 4116 


022726 


000007 






CMP 


»7, (SP)+ 


niS IT A CONTROL G? 




014322 










BNE 


15S 


■jNO, RETURN TO USER 


^7Q0 


ffl 1 A A 




Ml KOiA A 


000001 




CMPB 


SAUTOB, #1 


•lARE WE RUNNING IN AUTO-MODE? 




014332 


001 456 








BEQ 


15s 


•jBPANCH IF YES 


3799 


















3 800 


014 3 34 


104400 


015015 






TYPE 


,SCNTLG 


'jECHO THE CONTROL-G ("G) 


3801 


1 4 3 40 


* ■ ' T ^ V 


1 5 2 2 




SGTSWP; 


TYPE 


, SMSWP 


JTYPE CURRENT CONTENTS 


3802 


014344 


013746 


0001 76 






MOV 


SWpEG»-(SP) 


MSAVE SWREG FOR TYpEOUT 


380 3 


014 350 


1 04401 








TYPOC 




jGO TYPE--OCTAL ASCII(ALL DIGITS) 


3804 


014 352 


1 04400 


015033 






TYPE 


, SMNEW 


IPROMPT FOR NEW S«R 


3805 


01 4356 


005046 






1 9S : 


clr 


-CSP) 


jCLEAR COUNTER 


3806 


014 360 


005046 








CLP 


-(SP) 


fTHfc NEW SWR 


3807 






177676 




7S : 




eSTKS 


fCHAP THERE? 


3808 




1 003 7 5 








bPL 


7$ 


jIF NOT TRY AGAIN 




















3810 


014 370 


117 7 46 


177672 






MOVH 


g$TKB»-{SP) 


JPICK UP CHAR 


38 1 1 


01 4374 


042716 


1 77600 






BIC 


#*C177, ( SP) 


IMAKE IT 7-BIT ASCII 


3812 


















3813 


















3814 


















3815 


014 400 


021627 


000025 




9S: 


CMP 


(SP) , #25 


f IS IT A CONTROL-U? 


3816 


01 4404 


001005 








BNE 


10$ ; SBRANCH IF NOT 


3817 


01 4406 


104400 


015010 






TXPE 


fSCNTLU 


J YES, ECHO CONTROL-U i'U) 


3818 


014412 


062706 


000006 




20$: 


ADD 


#6,SP jjIGMOHF PREVIOUS INPUT 


3819 


014416 


000757 








8R 


19S : jLET'S THY IT AGAIN 


3820 


















3821 


















3822 


014420 


021627 


000015 




10s 1 


CMP 


(SP) , #15 


JIS IT A <CH>? 


3823 


014424 


001022 








BNE 


16S 


.•BRANCH IF NO 


3824 


014426 


005766 


000004 






TST 


4(5P) 


JYES, IS IT THE FIRST CHAR? 


3825 


014432 


001403 








BEQ 


11$ 


;BRANCH IF YES 


3826 


014434 


016677 


000002 


164554 




MOV 


2(SP) , 9SWR 


jSAVE NEW SWR 


3827 


014442 


062706 


000006 




1 ISJ 


ADD 


#6,SP 


jCLEAR UP STACK 


3828 


01 4446 


104400 


013737 




14S > 


TYPE 


fSCRLF 


JECHO <CR> AND <LF> 


3829 


014452 


123727 


015045 


000001 




CMPB 


$lNTAG,tl 


J RE-ENABLE TTY KBD INTERRUPTS? 


3830 


01 4460 


001003 








BNE 


15s 


jBRANCH IF NOT 


3831 


014462 


012777 


000100 


177574 




MOV 


9 100, §$TKS 


jRE-ENABLE TT)f KBD INTERRUPTS 


3832 


014470 


000002 






15s : 


RTl 


; jRETURN 
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3833 


014472 


004737 


013656 


16S: 


JSR 


PC, STYPEC 


jECHO CHAR 


3834 


014476 


021627 


000060 




CMP 


(SP) , »60 


}CHAP < 0? 


3835 


014502 


002420 






BLT 


18$ 


JBPANCH IF YES 


3836 


014504 


021627 


000067 




CMP 


(SP),«67 


jCHAP > 7? 


3837 


01 4510 


003015 






BGT 


18S 


jBRANCH IF YES 


3838 


014512 


042726 


000060 




BIC 


)i60, (SP) + 


JSTRIP-OFF ASCII 


3839 


014516 


005766 


000002 




TST 


2(SP) 


lis THIS THE FIRST CHAR 


3840 


014522 


001403 






BEQ 


17S 


jBRANCH IF YES 


3841 


014524 


006316 






ASL 


(SP) 


JNO, SHIFT PRESENT 


3842 


014526 


006316 






ASL 


(SP) 


; CHAR OVER TO MAKE 


3843 


014530 


006316 






ASL 


(SP) 


J ROOM FOR NEW ONE, 


3844 


014532 


005266 


000002 


17S: 


INC 


2(SP) 


jKEEP COUNT OF CHAR 


3845 


014536 


056616 


177776 




BIS 


-2(SP), (SP) 


JSET IN NEW CHAR 


3846 


014542 


000707 






BP 


7S 


JGET THE NEXT ONE 


3847 


014544 


104400 


01 3736 


18S! 


TYPE 


,SQUES 


jTYPE ?<CR><LF> 


3848 


014550 


000720 






BR 


20s 


JSIMULATE COntROL-U 


3849 








.OSABL 


LSB 







3850 
3851 
3852 
3853 
3854 
3855 
3856 
3857 
3858 
3859 



3881 
3882 
3883 
3684 
3885 
3886 
3887 
3888 



j»THIS ROUTINE WILL INpuT A SINGLE CHARACTER FROM THE TTY 
J»CALL! 



RDCHR 

RETURN HERE 



J J INPUT A SINGLE CHARACTER FROM THE TTY 
JjCHARACTER IS ON THE STACK 
jjWiTH PARITY BIT STRIPPED OFF 



3860 


014552 


01 1646 






SRDCHR! 


MOV 


(SP),- 


(SP) 


jjPUSH DOWN THE pC 


3861 


014554 


016666 


000004 


000002 




MOV 


4(SP), 


2(SP) 


; f SAVE THE PS 


3862 


014562 


105777 


177476 




IS: 


TSTB 


eSTKS 




JjWAlT FOR 


3863 


014566 


100375 








BPL 


1$ 




J JA CHARACTER 


3864 


014570 


117766 


177472 


000004 




MOVB 


0STKB, 


4(SP) 


; JREAD THE TTY 


3865 


014576 


042766 


177600 


000004 




BIC 


#*C<177>,4(SP) 


JjGET RID OF JUNK IF ANY 


3866 


014604 


026627 


000004 


000023 




CMp 


4(SP)f 


#23 


J J IS IT A CONTROL-S? 


3867 


014612 


001013 








BNE 


3$ 




; JBPANCH IF NO 


3868 


014614 


105777 


177444 




2s: 


TSTB 


eSTKS 




jjwAIT FOR A CHARACTER 


3869 


014620 


100375 








BPL 


2$ 




jjLOOP UNTIL ITS THERE 


3870 


014622 


117746 


177440 






MOVB 


&$TKB, 


-(SP) 


; jGET CHARACTER 


387 1 


014626 


042716 


177600 






BIC 


#"C177 


.(SP) 


JJMAKE IT 7-BIT ASCII 


3872 


014632 


022627 


000021 






CMP 


(SP)+, 


#21 


J J IS IT A CONTROL-Q? 


3873 


014636 


001366 








BNE 


2$ 




J jIF NOT DISCARD IT 


3874 


014640 


000750 








BR 


IS 




JlYES, RESUME 


3875 


014642 


026627 


000004 


000140 


3$: 


CMP 


4(SP), 


#140 


J lis IT UPPER CASE? 


3876 


014650 


002407 








BLT 


4$ 




; J BRANCH IF YES 


3877 


014652 


026627 


000004 


000175 




CMP 


4(SP), 


#175 


;jlS IT A SPECIAL CHAR? 


3878 


014660 


003003 








BGT 


4S 




J jBRANCH IF YES 


3879 


014662 


042766 


000040 


000004 




BIC 


#40,4(SP) 


J jMAKE IT UPPER CASE 


3880 


014670 


000002 






4$l 


RTI 






jjGO BACK TO USER 



«THIS ROUTINE WILL INPUT A STRING FROM THE TTY 
«CALL| 

* RDLIN ; J INPUT A STRING FROM THE TTY 

» RETURN HERE jjADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 

* jjTERMINATOR WILL BE A BYTE OF ALL 0'S 



014672 010346 



SRDLINi MOV 



R3,-(SP) 



; jSAVE R3 
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SEQ 0112 



3889 


01467 4 


012703 


015000 




18 > 


MOV 


#STTYIN,r3 


mget address 


3890 


014700 


022703 


015010 




2$l 


CMP 


#$TTYIN+8 , , P3 


; jBUFFER full? 


3891 


014704 


101405 








BLOS 


4$ 


MBR IF YES 


3892 


01 4706 


104406 








RDCHR 




nGO READ ONE CHARACTER FROM THE TTY 


3893 


01 4710 


1 12613 








MOVB 


CSP)+, CR3) 


nGET CHARACTER 


3894 


014712 


122713 


000177 




10$! 


CMPB 


#177, (B3) 


nIS IT A RUBOUT 


3895 


014716 


001003 








BNE 


3S 


nSKiP IF NOT 


3896 


014720 


104400 


013736 




4S S 


TYPE 


, $QUES 


nTYPE A 


3897 


014724 


000763 








BR 


1$ 


nCLEAR THE BUFFER AND LOOP 


3898 


014726 


111337 


014776 




3S| 


MOVB 


(R3)#9S 


jjLCHO THE CHARACTER 


3899 


014732 


104400 


014776 






TYPE 


,91 


3900 


014736 


122723 


000015 






CMPB 


»15, CR3)+ 


?lCHECK FOP RETURN 


3901 


014742 


001356 








BNE 


2S 


MLOOP IF NOT RETURN 


3902 


014744 


105063 


177777 






CLRB 


-1(R3) 


jjCLEAR RETURN (THE 15) 


3903 


014750 


104400 


013740 






TYPE 


,SLF 


mTYpe a line feed 


3904 


014754 


012603 








MOV 


(SP)+,R3 


fjHESTORE R3 


3905 


014756 


011646 








MOV 


(SP),«(SP) 


JJAOJUST THE STACK AND PUT ADDRESS OF 




01 4760 


16666 


000004 


000002 




MOV 


4(SP),2(SP) 


n FIRST ASCII CHARACTER ON IT 


3907 


014766 


012766 


015000 


000004 




MOV 


»STTYIN,4(SP) 




3908 


014774 


000002 








RTl 




n RETURN 


3909 


014776 


000 






9S : 


.BYTE 





jjSTOPAGE FOR ASCII CHAR, TO TYPE 


3910 


014777 


000 








.BYTE 





; iTERMINATOP 


3911 


015000 


000010 






STTYINj 


.BLKB 


B , 


;|RESERV£ 8 BYTEs FOR TTY INPUT 


3912 


015010 


052536 


005015 


000 


scntlui 


.ASCIZ 


/"U/<15><12> 


JjCONTROL "U" 


3913 


015015 


136 


006507 


000012 


SCNTLGI 


.AfaCIE 


/•G/<15><12> 


;jC0NTR0L "G" 


3914 


015022 


005015 


053523 


020122 


SMSWR: 


.ASCIZ 


<15><12>/SWR = 


/ 


3915 


015030 


020075 


000 












3916 


015033 


040 


047040 


053505 


SMNEWJ 


.ASCIZ 


/ NEW = / 




3917 


015040 


036440 


000040 












3918 


015044 


000 






SAUTOBj 


.BYTE 


JJAUTO 


MODE FLAG 


3919 


015045 


000 






SiNTAGj 


.BYTE 


} } INTERRUPT MODE FLAG 
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3920 






3921 






3922 






3923 






3924 






3925 






3926 






3927 






3928 


015046 


010046 


3929 


015050 


016600 


3930 


015054 


005740 


3931 


015056 


111000 


3932 


015060 


006300 


3933 


015062 


016000 


3934 


015066 


000200 


3935 






3936 






3937 






3938 






3939 






3940 






3941 






3942 






3943 


015070 




3944 


015070 


013506 


3945 


015072 


013766 


3946 


015074 


013742 


3947 


015076 


014002 


3948 






3949 


015100 


014340 


3950 






3951 


015102 


014270 


3952 


015104 


014552 


3953 


015106 


014672 


3954 


015110 


014170 


3955 


015112 


014226 


3956 


015114 


006516 



.SBTTL TRAP DECODER 

}»THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE "TRAP" INSTRUCTION 

;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 

|*0F THE DESIRED ROUTINE, THEN USING THE ADDRESS OBTAINED IT WILL 
J»G0 TO THAT ROUTINE, 



STRAP: MOV 
MOV 
TST 
MOVB 
ASL 
MOV 
RTS 



R0,-(SP) 
2(SP),R0 
-(R0) 
(P0) ,R0 

R0 

STRPADCR0) ,R0 
R0 



jSAVE R0 

JGET TRAP ADDRESS 

jBACKUP BY 2 

|GET RIGHT BYTE OF TRAP 

iPOSITION FOR INDEXING 

J INDEX TO TABLE 

jGO TO ROUTINE 



.SBTTL TRAP TABLE 



;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE". ROUTINES CALLED 
;*BY THE "TRAP" INSTRUCTION, 



$TYPE 


> >CALL= 


TYPE 


STYPOC 


J {CALLS 


TYPOC 


STYPOS 


nCALLs 


TYPOS 


STYPON 


nCALL= 


TYPON 


SGTSWR 


} >CALL= 


GTSWR 


SCKSWR 


nCALL= 


CKSWR 


SRDCHR 


nCALLs 


RDCHR 


$RDLIN 


f iCALLs 


RDLIN 


SSAVBEG 


1 jCALLb 


SAVREG 


SRESBEG 


J rCALLs 


RESREG 


XSUBSCOPE 


1 ICALL 



TRAP+0( 104400) 
TRAP4.1 (104401) 
TRAP+2( 104402) 
TRAP+3( 104403) 



TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (wITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 



TRAP+4( 104404) GET SOFT-SWR SETTING 



TRAP+5(104405) 
TRAP+6( 104406) 
TPAP+7( 104407) 



TEST FOR CHANGE IN SOFT-SWR 
TTi TYPEIN CHARACTER ROUTINE 
TTY TYPEIN STRING ROUTINE 
TRAP+10( 104410) SAVE R0-R5 ROUTINE 
TRAP + U (10441 I ) RESTORE R0-R5 ROUTINE 
||CALL=SUBSC0PE TRAP+ 1 2 ( 1 044 1 2 ) 
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DZRXBE.PIl POWER DOWN AND UP ROUTINES 



5EQ 0U4 



3957 










sbttl 


POWER 


DOWN AND UP ROUTINES 


3958 




























jl 








3960 










• DniiilTD 
J r U « H 


DOWN ROUTINE 




3961 


015116 


J 27 37 


015262 


00002 4 


C D liy D n w « 
r W H U 1' 3 


MOV 


SelLLUP,9SPWBVEC 


f > SET FOR FAST UP 


3962 








>ov)\aw £G 




MOV 


S340f i8PWRVEC+2 


n PPIOI 7 


396 3 




u I OW 'to 








MOV 


R0,«»CSP3 


; IPUSH R0 ON STACK 




015134 


010146 








MOV 


R1,-CSP) 


; ; PUSH Rl ON STACK 




015136 


010246 








MOV 


B2i-CSP) 


; 1 PUSH P2 ON STACK 




IP I 3 1 


W 1 i 4 








MOV 


R3,»CSP) 


; jPUSH R3 ON STACK 




01514 2 


01 0446 








MOV 


R4, -(SP) 


nPUSH R4 ON STACK 


396 8 


015144 


010546 








MOV 


R5,-{SP) 


; JPUSH R5 ON STACK 


3969 


015146 


017746 


164044 






MOV 


PSWP, -( SP) 


; {PUSH flSWP ON STACK 


3970 


015152 


0106 37 


015266 






MOV 


SP,$SAVR6 


JlSAVE SP 


3971 


015156 


012737 


015170 


0M0024 




MOV 


ISPWRUP, e^Pi^iPVEC 


fjSET UP VECTOR 




015164 


000000 








HALT 








015 lt)6 


» 00 Jib 








BR 


.-2 


; jHANG UP 




















397 5 










J J 








3976 










J POwER 


UP ROUTINE 




3977 


015170 


0127 37 


1 5 2t) 2 


0000 2 4 


S PWB UP ! 


MOV 


l!SILLUP,@l!PWRVEC 


J ; SET FOR FAST DOwN 






01 3706 


015266 






MOV 


SSAVB6,SP 


JjGET SP 


3979 


015202 


00503 7 


01 5266 






CLR 


SSAVR6 


n*^AlT LOOP FOR THE TTY 


iQo? 


015 206 




015266 




1 s S 


INC 


SSAVR6 


riWAlT FOP THE iNC 














Bf^E 


IS 


;}0F WORD 


IQO 5 


0152H 




1 fi177f> 






MOV 


(SP) + , taswp 


; J pop STACK INTO 3S^.R 


3983 


at tifja 
V I D £ £10 


W 1 O M t; 
IcJ 1 4 D Sr7 








MOV 


(SP)+, R5 


J ; POP STACK INTO R5 


3964 


015222 


it? i « D r* *f 








MOV 


(SP)+,R4 


t f pop STACK INTO R4 




015 224 


01 2603 








MOV 


CSP)+,R3 


;|P0P STACK INTO R3 


3966 




^! ?r f ^ 








MOV 


(SP)+, R2 


; J pop STACK INTO R2 




015230 


01 2601 








MOV 


(SP)+, R1 


jfPOP STACK INTO Rl 


3988 


015232 


012600 








MOV 


{SP)+,R0 


jlPOP STACK INTO R0 


3989 


015234 


012737 


015116 


000024 




MOV 


KSPWRDN, S^PWRVEC 


nSET UP THE POWER DOWN VECTOR 


3990 


015242 


012737 


000340 


000026 




MOV 


«340, @»PWRVEC+2 


; jPR10;7 


3991 


015250 


1 04400 








TYPK 




jREPORT THE POWER FAILURE 


3992 


015252 


015270 








,wOPD 


SPOWER 


; J POWER FAIL MESSAGE POINTER 


3993 


015254 


012716 








HOV 


CPC)+, (SP) 


JIRFSTART AT RESTART 


3994 


015256 


001350 






SPWRADi 


.WORD 


RESTART 


; ; RESTART ADDRESS 


3995 


015260 


000002 








HTl 






3996 


015262 


000000 






S ILLUPs 


HALT 




; ; T H E POWER UP SEQUENCE WAS STARTED 


3997 


015264 


000776 








BR 


,-2 


;? BEFORE THE pOwER DO^N WAS COMPLETE 


3998 


015266 


000000 






SSAVR6: 







; jPUT THE SP HERE 


3999 


015270 


005015 


047520 


042527 


SPOWERS 


, ASCIZ 


<l5><12>"POi^ER" 




4000 


015276 


0001 22 














4001 












.EVEN 
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ZRXBE, 


Pi 1 


SINGLE 


LENGTH 


BINARY TO 


DECIMAL 


ASCIZ 


ROUTINE 


4002 










gSBTTL 


SINGLE 


LENGTH BINARY 


4003 
















4004 
















4005 










J*TMIS 


ROUTINE 


WILL CONVERT A 


4006 










^•UNSIGNED DECIMAL ASCIZ NUMB 


4007 










;*CALL 






4006 










• * 


MOV 


NUMBER, -(SP) 


4009 












JSR 


PC, PSSSB2D 


4010 










• * 


RETURN 




401 1 
















4012 
















401 3 


015300 


016637 


000002 


0J 5330 


SSB2D J 


MOV 


2(SP) ,1$ 


401 4 


015306 


012746 


015330 






MOV 


»1S,-(SP) 


4015 


015312 


004737 


015334 






JSR 


PC,3#SDH2D 


4016 


015316 


062716 


000005 






ADD 


!t5, (SP) 


4017 


015322 


012666 


000002 






MOV 


(SP)+,2(SP) 


4018 


015326 


000207 








RTS 


PC 


4019 


015330 


000000 


000000 




1 SJ 


.WORD 


0f 


4020 










.SBTTL 


DOUBLE 


LENGTH BINARY 


4021 
















4022 
















4023 










J *THIS 


ROUTINE 


WILL CONVERT A 


4024 










j«DECIMAL (ASCII) NUMBER, THE 


4025 










j»POSITIVE, 




4026 










J«CALL 






4027 










1* 


MOV 


#PNTR,-(SP) 


4028 










;# 


JSP 


PC, P8SDB2D 


4029 












RETURN 




4030 
















4031 
















4032 
















4033 


015334 


104410 






SDB2DS 


SAVREG 




4034 


015336 


016602 


000002 






MOV 


2(SP) ,R2 


4035 


015342 


012700 


015514 






MOV 


#SDECVL,R0 


4036 


015346 


010066 


000002 






MOV 


R0,2(SP) 


4037 


015352 


012201 








HOV 


(R2)+,R1 


4038 


015354 


012202 








MOV 


CR2)+,R2 


4039 


015356 


012737 


000012 


015432 




MOV 


il0,,4$ 


4040 


015364 


012704 


015444 






MOV 


#STNPWR,R4 


4041 


015370 


012705 


015446 






MOV 


#STNPWR+2,R5 


4042 


015374 


005003 






Us 


CLR 


B3 


4043 


015376 


161401 






2Sl 


SUB 


(R4),R1 


4044 


015400 


005602 








SBC 


R2 


4045 


015402 


161502 








SUB 


(R5),R2 


4046 


015404 


002402 








BLT 


3S 


4047 


015406 


005203 








INC 


R3 


4048 


015410 


000772 








BB 


2S 


4049 


015412 


062401 






3$t 


ADD 


(R4)-e-#Rl 


4050 


015414 


005502 








ADC 


B2 


4051 


015416 


062402 








ADD 


(R4)>,R2 


4052 


015420 


022525 








CMP 


(R5)+, (P5)+ 


4053 


015422 


052703 


000060 






BIS 


8*0, R3 


4054 


015426 


110320 








MOVB 


R3, CR0)+ 


4055 


015430 


005327 








DEC 


(PC) + 


4056 


015432 


000000 






4S! 


,WORD 





4057 


015434 


001357 








BNE 


IS 



jjPUT BINARY NUMBER ON THE STACK 
; iCALL 

•jADDPESS OF THE 1ST ASClZ CHAR, IS ON THE STACK 



; ; SAVE BINARY NUMBER 
;>SET POINTER 

; ;CALL DOUBLE LENGTH CONVERT 
;jONLY ALLOW FIVE CHARACTERS 
; jPICKUP POINTER 
; J RETURN 



32-BIT BINARY NUMBER TO AN UNSIGNED 



jjPOINTER TO LOW WORD OF BINARY NUMBER 



; ;THE FIRST ADDRESS OF ASCIZ 
; J IS On THE STACK 



; ;SAVE REGISTERS 

JfPlCKUP THE DATA POINTER 

mGET ADDRESS OF "$OECVL" STRING 

jjPUT ADDRESS OF ASCIZ STRING ON STACK 

;jPlCKUP THE BINARY NUMBER 

nSET UP TO DO 10 CONVERSIONS 
nADDRESS OF TEN POWER 

J f CLEAR PARTIAL 

f {SUBTRACT TEN POWER 



IjBR IF TEN POWER TO LARGE 
;>ADD 1 TO PARTIAL 
; »LOOP 

;f RESTORE SUBTRACTED VALUE 



SjMOVE TO NEXT TEN POWER 
J fCHANGE PARTIAL TO ASCII 

JlSAVE IT 
; I DONE? 

;|BR IF NO 
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DZPXBE^Pll DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 



SEQ 0116 



4058 


015436 


1 nttL e%*i Ilk 
i 0!)02n 






4059 


015 440 


104411 


resreg 




4060 




vvv ivl 


RTS PC 




4061 


a i e A A A 
w 1 3 s 4 % 


1 A C iX tJI A 






4062 


015446 


035632 






4063 


01 5450 


100400 


lax) tvw 




4064 


015452 


002765 


2765 




4065 


015454 


1 1 3200 


11 3 200 


; ; 1 • 0E07 


4066 


01 5456 


000230 


^ 




4067 


015460 


041100 


041 100 


; ; 1 1 0E06 


4068 


015462 


000017 


1 7 






01 5464 


103 2 40 


IW J /, 


Jilt wtvO 


4070 


015466 


000001 


1 




4071 


015470 


023420 


23420 


; S 1 .0E04 


4072 


015472 


000000 







4073 


015474 


001750 


1750 


J f 1 .0E03 


4074 


015476 


000000 







4075 


015500 


000144 


144 


; 1 ,0E02 


4076 


015502 


000000 







4077 


015504 


000012 


12 


f J 1 ,0t01 


4078 


015506 


000000 







4079 


015510 


000001 


I 


; ; 1 .0E00 


4080 


015512 


000000 







4081 


015514 


000014 


SDeCVLJ ,BLKB 12. 


jjRESERVE STORAGE FOR ASCjZ STRING 


4082 
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ZRXBE, 


,P1 1 


DOUBLE 


LENGTH BINARY 


TO DECIMAL 


ASCII CONVERT ROUTINE 




4083 














4084 














4085 










jTYPK NUMERICAL ASCIZ STRING, RIGHT JUSTIFIED 


4086 










JHEPLACING LEADING ZEROS WITH 


SPACES, 


4087 










; 




4088 










{FIRST ADDRESS OF ASCIZ STRING 


MUST BE ON TOP OF THE STACK 


4089 














4090 


015530 


010046 




RTJUSTS 


HOV R0,-(SP) 


;SAVE R0 


4091 


015532 


016603 


000004 




MOV 4CSP)»RH 


>P1CK UP ADDRESS OF ASCIZ STRING 


4092 


015536 


010037 


015570 




MOV R0,3$ 


{SAVE ADDRESS FOR TYPE OUT 


4093 


015542 


105710 




IS! 


TSTB CR0) 


lis THIS THE TERMINATOR 


4094 


015544 


001 406 






BEQ 2S 


J IF YES TYPE IT OUT 


4095 


015546 


122710 


000060 




CMPB «'0,(R0) 


;IS IT A ZERO 


4096 


015552 


001005 






BNE 4S 


;IF NO GO PRINT IT 


4097 


015554 


1 12720 


000040 




MOVB #' ,CR0)+ 


?IF YES REPLACE IT WITH A SPACE 


4098 


015560 


000770 






BR IS 


jTEST NEXT CHAR, 


4099 


015562 


112740 


000060 


2$: 


MOVB «'0,-(P0) 


JSTRING OFF ALL ZEROS, PUT BACK THE 


4100 


015566 


104400 




4SI 


TYPE 


JTYPE THE STRING 


4101 


015570 


000000 




3$! 


OPEN 




4102 


015572 


012600 






MOV (SP)-l-,P0 


fRESTORE P0 


4103 


015574 


012616 






MOV (SP)+,CSP) 


fRESTORE THE STACK 


4104 


015576 


000207 






RTS PC 


{RETURN 


4105 














4106 










ITYPES 16 BIT WORD IN DECIMAL 




4107 














4108 


015600 


012546 




sgldecj 


MOV (R5)+»-(SP) 


{PUT NUMBER TO BE TYPED ON STACK 


4109 


015602 


004737 


015300 




JSR PC»P#$SB2D 


{CONVERT NUMBER TO DECIMAL 


4110 


015606 


004737 


015530 




JSR PCRTJUST 


{TYPE THE DECIMAL NUMBER 


4111 


015612 


000205 






RTS R5 
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.SbTTL MESSAGES 



015614 


042524 


052123 


050040 


mdtestp: 


.ASCIE 


015622 


051101 


046501 


052105 






015630 


051105 


035123 


000040 






015636 


005015 


042412 


405 22 


MXEHEADEp 1 


, asciz 


015644 


051 104 


020040 


040506 






01 5652 


0521 23 


020040 


043040 






015660 


050101 


020124 


020040 






015666 


020040 


020040 


020040 






015674 


043440 


047 517 


020104 






015702 


020040 


040502 


020104 






015710 


^20040 


020040 


040520 






015716 


051523 


000 








015721 


1 25 


042516 


0501 30 


MUNXDD t 


, asciz 


015726 


041505 


042524 


020104 






015734 


020104 


020104 


040515 






015742 


045522 


00501 5 


000 






015747 


104 


042040 


046440 


MDDMIS: 


.ASCIZ 


015754 


051 101 


0201 1 3 


044515 






015762 


051523 


0471 1 1 


006507 






015770 


^00012 










01577 2 


. 

040504 


040524 


02005 4 


MDERHnP ! 


,ASCIZ 


1 6000 


047516 


051440 


040524 






01600b 


052524 


020123 


051 105 






016014 


047522 


000122 








01 6020 


047440 


02kJl 16 


051124 


MTPKj 


, ASCIZ 


016026 


041501 


0001 1 3 








016032 


020040 


051106 


046517 


MPPES: 


.ASCIZ 


016040 


052043 


040522 


045503 






016046 


000 










1 604 7 


040 


2005 7 


042523 


MSECT! 


ASCIZ 


016054 


052103 


051 117 


000 






016061 


015 


020012 


054502 


MCOLMUN J 


.ASCIZ 


01606b 


042524 


020040 


040502 






016074 


020104 


043440 


047517 






016102 


006504 


000012 








016106 


020040 


020040 


020040 


TAB! 


.ASCIZ 


016114 


000 










016115 


040 


000040 




PRLSPJ 


.ASCIZ 


016120 


005015 


000 




MCRLFJ 


.ASCIZ 


016123 


015 


042412 


051122 


merheaderj 


.ASClZ 


016130 


051117 


041 440 


0471 17 







ASCIZ <15><12><12> "ERADR FAST FAPT 



ASCIZ "UNEXPECTED D D MARK " < 1 5>< 1 2> 



.ASCIZ "D D MARK MI SS ING"<1 5>< 1 2> 



ASCIZ "DATA, NO STATUS ERROR" 



ASCIZ <40><40><40><40><40><40> 
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ERXBE.Pl 1 


MESSAGES 










4168 


016136 


044504 


044524 


047 jn 








4169 


016144 


035123 


020040 


042524 








4170 


016152 


052123 


050040 


020103 








4171 


016160 


020075 


000 










4172 
















4173 


016163 


125 


044516 


020124 


MUNIT0: 


.ASCIZ 


"UNIT " 


4174 


016170 


020060 


000 










4175- 
















4176 


016173 


125 


044516 


020124 


MUNITI : 


.ASCIZ 


"UNIT 1 " 


4177 


016200 


020061 


000 










4178 
















4179 


016203 


117 


0461 16 


0201 31 


MONLY! 


.ASCIZ 


"ONLY " 


4180 


016210 


000040 












4181 
















4182 


016212 


054122 


051503 


036440 


MPXCSJ 


.ASCIZ 


"RXCS = " 


4183 


016220 


000040 












4184 
















4185 


016222 


052123 


052101 


051525 


MASTATI 


.ASCIZ 


"STATUS A = " 


4186 


016230 


040440 


036440 


0000^^0 








4187 
















4188 


016236 


052123 


052101 


051525 


MBSTAT! 


.ASCIZ 


"STATUS B = " 


4189 


016244 


041040 


036440 


000040 








4190 




'005015 












4191 


016252 


000012 




DBLLFS 


.ASCIZ 


<15><12><12> 


4192 
















4193 


016256 


047516 


044440 


052116 


MINTERt 


.ASCIZ 


"NO INTERRUPT AT DONE ERROR" 


4194 


016264 


051105 


052522 


052120 








4195 


016272 


040440 


020124 


047504 








4196 


016300 


042516 


042440 


0511 22 








4197 


016306 


051117 


000 










4198 
















4199 


016311 


125 


045516 


047516 


MUKNINT! 


.ASCiZ 


"UNKNOWN INTERRUPT" 


4200 


016316 


047127 


044440 


052116 








4201 


016324 


051105 


052522 


052120 








4202 


016332 


000 












4203 
















4204 


016333 


124 


052117 


046101 


merctj 


.ASCIZ 


"TOTAL READ CHECK ERRORS = " 


4205 


016340 


051040 


040505 


020104 








4206 


016346 


044103 


041505 


020113 








4207 


016354 


051105 


047522 


051522 








4208 


016362 


036440 


000040 










4209 
















4210 


016366 


044506 


046114 


052502 


MFILl 


.ASCIZ 


"FILLBUFFER " 


4211 


016374 


043106 


051 105 


000040 








4212 
















4213 


016402 


046505 


052120 


041131 


MEMPTYl 


.ASCIZ 


"EMPTYBUFFER " 


4214 


016410 


043125 


042506 


020122 








4215 


016416 


000 












4216 
















4217 


016417 


040 


051 124 


041501 


MLIMTPKI 


.ASCIZ 


" TRACKS 52,53, U4#0 " 


4218 


016424 


051513 


032440 


026062 








4219 


016432 


031465 


030454 


032061 








4220 


016440 


030054 


020040 


000 








4221 
















4222 


016445 


117 


036504 


000 


MODS 


.ASCIZ 


"ODE" 


4223 
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4224 


016451 


040 


044440 


036504 


MIDI 


.ASCIE 


" IDs" 


4225 


016456 


000 












4226 
















4227 


016457 


040 


043040 


05UU 


MFlRSTi 


, ASCIZ 


" FIRSTS" 


4228 


016464 


052123 


000075 










4229 
















4230 


016470 


020040 


040514 


052123 


MLASTt 


.ASCIZ 


" LASTS" 


4231 


016476 


000075 












4232 
















4233 


016500 


051 103 


020103 


051 105 


MBADCPCJ 


, ASCIZ 


"CPC ERROR NO DATA ERROR" 


4234 


016506 


047522 


020122 


047516 








4235 


016514 


042040 


052101 


020101 








4236 


016522 


051105 


047522 


000122 








4237 
















4238 


016530 


042522 


042101 


000040 


MREADI 


.ASCIZ 


"READ " 


4239 
















4240 


016536 


040504 


040524 


041440 


MCHC3 


.ASCIZ 


"DATA CRC ERROR" 


4241 


016544 


041522 


042440 


051122 








4242 


016552 


051117 


000 










4243 
















4244 


016555 


123 


042505 


0201 13 


MSEEK! 


•ASCIZ 


"SEEK ERROR" 


4245 


016562 


051 105 


047522 


0001 22 








4246 
















4247 


016570 


051127 


052111 


0201 05 


MWRITEJ 


.ASCIZ 


"WRITE " 


4248 


016576 


000 












4249 
















4250 


016577 


120 


051101 


052U1 


MPARl 


.ASCIZ 


"PARITY ERROR" 


4251 


016604 


020131 


051 105 


047522 








4252 


016612 


000122 












4253 
















4254 


016614 


051105 


047522 


020122 


mnoflag: 


.ASCIZ 


"ERROR FLAG ERROR" 


4255 


016622 


046106 


04350} 


042440 








4256 


016630 


051 122 


051117 


000 








4257 
















4258 


016635 


102 


042101 


000 


MBAD! 


.ASCIZ 


"BAD" 


4259 
















4260 


016641 


040 


000 




SPACE! 


.ASCIZ 


<40> 


4261 
















4262 


016643 


107 


047517 


00P104 


MGOOD! 


.ASCIZ 


"GOOD" 


4263 
















4264 


016650 


020040 


044103 


041505 


MSUM! 


.ASCIZ 


" CHECK SUM " 


4265 


016656 


0201 I 3 


052521 


0201 15 








4266 


016664 


000 












4267 
















4268 


016665 


015 


051012 


030530 


MRXl 1 : 


.ASCIZ 


<15><12>"RX11 / RXVll" 


4269 


016672 


020061 


020057 


054122 








4270 


0167 00 


fc!30526 


000061 










4271 
















4272 


016704 


005015 


046412 


044501 


MHEVs 


.ASCIZ 


<15><12><12> "MAINDEC-H-DZRXb-E" <15><12> 


4273 


016712 


042U6 


041505 


030455 








4274 


016720 


026461 


055104 


054122 








4275 


016726 


026502 


00b505 


00001 2 








4276 
















4277 


016734 


005015 


047125 


054105 


L0C4M: .ASCIZ 


<15><12>"UNEXPECTEU TRAP TO LOC. 4 OCCURRED" 


4278 


016742 


042520 


052103 


042105 








4279 


016750 


052040 


040522 


020120 
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4280 


016756 


047524 


046040 


041517 


4281 


016764 


020056 


020064 


041517 


4282 


016772 


052503 


051122 


042105 


4283 


017000 


000 






4284 










4285 


017001 


015 


052412 


042516 


4286 


01700b 


050130 


041505 


042524 


4287 


017014 


020104 


05U24 


050101 


4288 


017022 


052040 


020117 


047514 


4289 


017030 


027103 


030440 


020060 


4290 


017036 


041517 


052503 


051122 


4291 


017044 


042105 


000 




4292 










4293 


017047 


075 


041520 


000 


4294 










4295 


017053 


015 


052012 


040522 


4296 


017060 


045503 


046040 


0465U 


4297 


017066 


052111 


020123 


042523 


4298 


017074 


042514 


052103 


042105 


4299 


017102 


047440 


052125 


047440 


4300 


017U0 


020106 


040522 


043516 


4301 


017U6 


105 






4302 


017117 


015 


042012 


043105 


4303 


017124 


052501 


052114 


047111 


4304 


017132 


020107 


047524 


000040 


4305 










4306 


017140 


005015 


042523 


052103 


4307 


017146 


051U7 


046040 


046511 


4308 


017154 


0521U 


020123 


042523 


4309 


017162 


042514 


052103 


042105 


4310 


017170 


047440 


052125 


047440 


4311 


017176 


020106 


040522 


043516 


4312 


017204 


105 






4313 


017205 


015 


042012 


043105 


4314 


017212 


052501 


052114 


047111 


4315 


017220 


020107 


047524 


000040 


4316 










4317 


017226 


005015 


040503 


052125 


4318 


017234 


047511 


020116 


020055 


4319 


017242 


043111 


054440 


052517 


4320 


017250 


042040 


051505 


051111 


4321 


017256 


020105 


047524 


052040 


4322 


017264 


051505 


020124 


047125 


4323 


017272 


052111 


030040 




4324 


017276 


005015 


042522 


046120 


4325 


017304 


041501 


020105 


047514 


4326 


017312 


042101 


046440 


042105 


4327 


017320 


052511 


020115 


044527 


4328 


017326 


044124 


040440 


051440 


4329 


017334 


051103 


052101 


044103 


4330 


017342 


042040 


051511 


042513 


4331 


017350 


052124 


105 




4332 


017353 


015 


0S2012 


042510 


4333 


017360 


030U6 


05U20 


05i505 


4334 


017366 


020123 


047503 


052116 


A? 


at TiTA 
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LOC10MJ .ASCIZ <15><12>"UNEXPECTED TRAP TO LOC, 10 OCCURRED" 



PCMJ .ASCIZ "spC" 

0D2BIG: .ASCII <15><12>"TRACK LIMITS SELECTED OUT 0^ RANGE" 



.ASCIZ <15><12>"DEFAULT1NG TO 



S2BIG! .ASCII <15><12>"SECT0R LIMITS SELECTED OUT OF RANGE" 



.ASCIZ <15><12>"DEFAULTInG TO " 



D0LOADI , ASCII <15><12>"CAUTI0N • IF YOU DESIRE TO TEST UNIT 0" 



.ASCII <15><12>"REPLACE LOAD MEDIUM WITH A SCRATCH DISKETTE" 



.ASCIZ <15><12>"THEN PRESS CONTINUE" < 1 5>< 1 2> 
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^£Q 0122 



4336 
4337 
4338 
4339 
4340 
4341 
4342 
4343 
4344 
4345 
4346 
4347 



017404 00020^ 



|THE p-OLLOwING LOCATIONS ARE USED FOR DATA STORAGE , RETRY COUNTERS 
I ACCESS COUNTERS ETC , 

,BLKB 200 
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DZRXBE.pll CROSS REFERENCE TABLE -- USEp SYMBOLS 



ADJSUM 


01076b 


2321 


2394 


2412 


2750 


3029 


3047S 
















ASTAT 


012146 


2807 


2916 


2923 


?972 


2990 


3158* 


3161 


3164 


3241)! 


3245* 


3255 






BAD8YT 


01 1454 


3040» 


3041 


3042 


3088 


31 36» 


















BIT0 = 


000001 


179« 


2923 
























BIT00 = 


000001 


lb9» 


179 
























BIT01 = 


000002 


168» 


178 
























BIT02 = 


000004 


167» 


177 
























BIT03 = 


000010 


166# 


176 
























BIT04 a 


000020 


165« 


175 
























BIT05 = 


000040 


164lt 


174 
























BIT06 = 


000100 


163« 


173 
























BIT07 = 


000200 


162» 


172 
























BIT08 = 


000400 


161# 


171 
























BIT09 = 


001000 


160« 


170 
























BITl = 


000002 


178# 


2807 


2916 






















BIT10 = 


002000 


159# 


























BITll = 


004000 


158« 


























BIT12 = 


010000 


157« 


























BIT13 = 


020000 


15b# 


2872 
























BIT14 = 


040000 


I55# 


449 


1431 


3432 


3446 


















BIT15 = 


100000 


154« 


454 


470 


3021 


3466 


3504 
















BIT2 = 


000004 


177» 


3161 
























BIT3 = 


000010 


176« 


























BIT4 = 


000020 


175» 


32 33 


3572 






















BITS = 


000040 


174S 


1539 


2636 






















B1T6 = 


000100 


173# 


670 


830 


1082 


1243 


1287 


1301 


1341 


1359 


1401 


1420 


1488 


1592 






1831 


1850 


1956 


2972 


2990 


3423 


3428 


3434 












BIT7 = 


000200 


172» 


673 


674 


1382 


1491 


1492 


1596 


2447 


2453 


3028 


3083 


3509 


3574 


BITS B 


000400 


171» 


548 


832 


866 


2528 


2560 


2979 


2992 


3067 


3183 








BIT9 = 


001000 


170# 
























BPTVECs 


000014 


186» 


























BRLEV 


001214 


37011 


2491 
























BSTAT 


012150 


3l9i» 


3242» 


3253* 


3261 




















BUFADR 


017404 


1624 


1727 


3047* 


3048* 


3052* 


3055* 


3056 


3276 


3378 


4345# 








BUSERR 


006130 


214 


2459» 
























BYTECN 


011452 


2753* 


2761* 


3026* 


3044* 


3084 


3101* 


3135» 














CATERR 


003032 


1170 


1175* 


11788 


1190* 




















CCOUNT 


002526 


438# 


835 


838* 


839 


841* 


877» 


2527* 














CEXIT 


004246 


1065 


1303 


1360 


1421 


1607 


1617 


1724 


1810 


1611# 










CKBYTE 


010736 


3040# 
























CKSUM 


011056 


3030# 


3041« 


3049* 


3050* 


3051* 


3052 


3053* 


3054* 


3055 


3059# 


3117 






CKSWR s 


104405 


646 


891 


2524 


2565 


2571 


2621 


2670 


2770 


2776 


2825 


2830 


2835 


2863 






2871 


2875 


2938 


2943 


2954 


2959 


2974 


2982 


2993 


3069 


3097 


3109 


3123 






3144 


3150 


3168 


3176 


3192 


3951# 
















COMMWO 


007634 


2332 


2792 


2850# 


2895 




















CONT10 


010522 


2971 


2990# 
























CONTll 


010470 


2976 


2982* 


2995 






















CONTl 3 


007312 


2778 


218id$ 
























C0NTi4 


007562 


2832 


2834# 
























C0NT15 


010312 


2945 


2947# 
























C0NT16 


010364 


2961 


2963# 
























C0NTi7 


010502 


2984 


2986# 
























CONT20 


0U276 


3099 


3101# 
























C0NT21 


011522 


3152 


3154# 
























C0NT4 


007300 


2772 


2776# 




























1 no "» 



























MAINDEC 




MAC Yl 1 








PAGE 


1 00 


U £ rv AD f 
















C PU PR I 


13! raft "J da 




af if 










CR s 






•50 


364b 








CRCEB 
















^^^^ " 








3646 








DATAB Y 


012 322 


329 1 # 


3 300* 


3 310* 


3 316* 


3 326* 


3334* 






3377 












D A T AC K 


007 7 4 


2 8 6 1 # 


2890* 


29 3 4* 


3104 






D ATAC R 


010330 


29 3 3 


2937 


2954f 








DAT AER 


i I i 1 


3043 


3067 # 










DATA0 


012 326 


3281 


3300» 










DATAl 


012340 


3282 


3310* 










DBLLF" 


016252 


41 9 1 # 












DBLSP 


016115 


3087 


3091 


3232 


41621* 






DDC HK 


010410 


2907 


2970» 










DDERR 


010452 


2979# 


2998 










DDI SP s 


177570 


1 1 if 


378 










DEATH 


003034 


117 4 


1 I 8 4 » 










DEXIT 


004260 


1814 8 


1 89b 


2030 


208 4 


2136 


2271 


DING 


006450 


2561 


257 1 St 


30 J 2 








D I SPL A 


00 12 20 


3 7 8 # 


419* 










D I SPRE 


000 1 7 4 


237 » 


419 












012 7 26 


2743 


3444tt 










DONEBIs 


000040 


2018 


2796 


2899 


3166 






DR VS»i)P 


007012 


2427 


27 1 7 « 










DSinR s 


1 77570 


1 00« 


37 7 










dtestp 


001212 


368 # 


445 


449 


45 2 


473 


867 


D0LOAD 


017226 


464 


4 317 8 










EBI E = 


000103 


2038 


3036 










empbuf 


010644 


2935 


3023# 


306 3 


3127 


3131 




EMPDON 


011 306 


30 31 


3104* 










EMPER 


011 060 


3032 


306 1 # 










EMPFLA 


0107 30 


30371 


3038 


3045 


3102 






EMTVECs 


0000 30 


1 B9» 












EPCSCO 


006 4 7 4 


25 1 7 «■ 


?5 I 8* 


25 6 1 # 


2613 






IT D f W T D 


01 1460 


2936 


3027* 


3068* 


3074 


3107 


3113 


ERMSG 


010566 


2977 


299fa 


3002 * 


307 8 


3147 


3196 


C* D D rt o c 






2519* 


2580S 


2586 


2595* 


2b01 


ER R V E C ^ 


00000 4 
















lA \ \ AAA 


'zz. 


3129 
















^ 1 a* 












004064 






16 40 


17 2b 


2324 




FBIE 


000101 














F I LuDu 


00/144 






2 7 8 2 


2816 


2839 




F I LLDO 


007 3 3 2 




2 7 8 5s 


2812 








FILLER 


007 2 22 


2 7 5 2 


2 7 6 4 * 










FILLFL 


007202 


2 7 5 8 * 


2759 


2762 








FIRST 


001202 


301» 


302 


509 


511* 


514 


517 


FIRSTT 


002170 


757« 


872 










FLOAT0 


012350 


3263 


33168 










FLOATl 


012412 


3284 


33 34* 










FUNCTI 


007702 


2329« 


2413* 


2788* 


2791 * 


2850* 


2851 


getpat 


01 2260 


1623 


2320 


2393 


24t 1 


2717 


2735 


GETSEC 


013422 


2749 


2889 


3565S 








GETTRA 


013104 


2 7 06 


2720 


2738 


34850 






GETUNI 


012634 


2318 


24 10 


2705 


2719 


2723 


2737 


GNS s 


u 


3944 


3945 


3946 


3947 


3949 


39S1 



3549* 3552 



2660S 
3276» 



34238 
3952 
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SYMBOLS 




GOODBY 


011456 


3092* 


3094 


31 37» 






GTSWR = 


104404 


425 


3949* 








HANGER 


006756 


440» 


556* 


831* 


855* 


2638* 


HANGPL 


006760 


441* 


557* 


666* 


2639* 


2669* 


HERE 


002462 


858 


fi64« 








HLT10 


010 310 


2946* 










HLT12 


010362 


2962« 










HLT13 


010500 


29851* 










HLT14 


011274 


3100# 










HLT15 


01 1520 


3l53t 










HLT6 


007310 


2779» 










HLT7 


007560 


2833» 










HOME 


007706 


2834 


2863» 


2 8 80 






HT = 


00001 1 


92!* 


3605 


3646 






HUNGUP 


006622 


2640 


2647« 








ID - 


001201 


300« 


486 


488 


496 


3469 


ILLADR 


005106 


1913 


2046 


2099 


2140» 


2145 


INCERR 


006244 


2519# 


2520 








INITSE 


013324 


2748 


2888 


3547» 






INITTR 


012752 


2704 


2718 


2736 


346H 




INTLEA 


013420 


3558* 


3563» 


3570 


3571* 




INTSER 


01 1526 


2305 


2425 


2450 


3154 


3158S 


lOTVECa 


000020 


187» 










KRXVEC 


001204 


304# 


1018 


1072 


1236 


1277 


LAST = 


001203 


302« 


512 


514 


522 


3550* 


LF = 


000012 


938 


3640 


3646 






LIMITS 


001622 


478# 


505 








LIMTRK 


013140 


3487 


35018 








LOAD 


012510 


3301 


3321 


3344 


3364 


3373 


LOCKUP 


002556 


755 


891# 








LOC10M 


017001 


2475 


4285S 








L0C4M 


016734 


2459 


4277# 








LOGICA 


002452 


230 


860# 








MABELL 


006470 


843 


2574 


2577« 






MASTAT 


016222 


3254 


4185lt 








MBAD 


016635 


3119 


4258# 








HBADCR 


016500 


2941 


4233# 








MBSTAT 


016236 


3260 


4188$ 








MCOLMU 


016061 


3082 


4154# 








MCRC 


016536 


2957 


4240$! 








MCRLF 


016120 


477 


526 


837 


849 


2532 






3122 


3149 


3172 


3180 


3195 


MDDMIS 


015747 


2978 


4133S 








MDEPHD 


015772 


3079 


4139# 








MDTEST 


015614 


472 


4115S 








MEMPTY 


016402 


3062 


4213« 








MERCT 


016333 


3112 


4204# 








MERHEA 


016123 


3002 


4166# 








HFIL 


016366 


2765 


4210» 








MFIRST 


016457 


516 


4227# 








MGOOD 


016643 


3121 


4262* 








MHUNGP 


006674 


2674 


2684* 








HID 


016451 


495 


4224# 








MILTST 


002536 


874 


883# 








MINTER 


016256 


3148 


4193# 








MLAST 


016470 


521 


4230# 









2668* 
2694* 



2693* 
26981 



1319 
3551 



1375 
3567 



2775- 
3203 



2847 
3217 



2942 
3263 



2958 
4164s 
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16-MAP' 
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REFERENCE 
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SYMBOLS 






MLIMTR 


016417 


481 


4217S 










MNOFLA 


016614 


3179 


4254« 










MOD 


016445 


490 


4222S 










MONLY 


016203 


462 


4179# 










MORETE 


002162 


755» 


1812 


1815 


2673 


2682 




MPAR 


016577 


2774 


3216 


4250# 








MPASS 


006725 


850 


2689# 


3007 








MPRES 


016032 


2842 


4147» 










MREAD 


016530 


2919 


2927 


42389 








MREV 


016704 


411 


4272X 










MRXCS 


016212 


3197 


3211 


4l82# 








MRXl 1 


016665 


3208 


4268# 










MSECT 


016047 


3225 


4151# 










MSEEK 


016555 


2841 


4244S 










MSUM 


016650 


3116 


42641 










MTRK 


16020 


3220 


4 1 44» 










MUKNIN 


016311 


3171 


4199# 










MIINIT0 


016163 


3235 


41 73s 










MUNITl 


016173 


461 


3237 


41 76S 








MUNXDD 


015721 


2997 


41280 










MWRITE 


016570 


2810 


2821 


2828 


4247 8 






MX 


0025 34 


834« 


842 


88 1 # 


1811* 


1814* 




MXEHEA 


0156 36 


25 30 


41 19# 










nextbd 


010132 


2783 


2906 


2909 


29118 


2921 


2929 


NOERTY 


01 1264 


307 1 


3075 


3097» 








NOINTE 


01 1 462 


2800 


2903 


31 44# 








NOMOPE 


002274 


767 


8301 










NOPRIN 


006420 


2526 


2560» 










NOPRNT 


011726 


3192« 












NOSCOP 


006504 


2595« 


2623 










NXREAD 


0114 30 


3064 


3108 


3125 


31288 






OD 


001 20C! 


2''9« 


300 


47l* 


478 


48B 


49i 






351^4* 


3506 


3509* 


3523* 


3526 


35 36 


0D2BIG 


017053 


501 


4295it 










0K2G0 


003036 


1177 


1 1 89# 










OPEN = 


000000 


206« 


853 


2557 


2773 


301 


3086 


PARTES 


007252 


2768 


2770« 


2813 


2922 


3065 




PARTiP 


01 2022 


3189 


32 1 1 # 


3251 








PASS 


0025 30 


439« 


844* 


851 


878 8 


2555 


3008 


PAT 


012324 


1615* 


1 802* 


1 807* 


2319* 


2390* 


2392* 


PATGEN 


012332 


3301# 


3302 


331 1 








PATTER 


01 2302 


32B0 


328 1 8 










PATl 25 


012420 


3285 


3343s 










PAT3I4 


012440 


3286 


33541) 










PC =' 


%000007 


1 1 3# 


755* 


860* 


901 * 


903* 


1334* 






1634* 


1637* 


1639* 


1708* 


1723* 


1728* 






2046» 


2074* 


2099* 


2126* 


2140* 


2144* 






2185* 


2188* 


2194* 


2249* 


2307* 


2318* 






2378* 


2379* 


2391* 


2393* 


2394* 


2396* 






2452* 


2505* 


2561* 


2575* 


2632* 


2641* 






2718* 


2719* 


2720* 


2721* 


2722* 


2723* 






2739* 


2740* 


2743* 


2744* 


2748* 


2749* 






2848* 


2852* 


2855* 


2858* 


2867* 


2874* 






2913* 


2928* 


2935* 


2977* 


2980* 


2996* 






3081* 


3106* 


3126* 


3130* 


3133* 


3147* 






3206* 


3218* 


3238* 


3247* 


3251* 


3264* 
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3382* 


3402* 


3429* 


3436» 


3449* 


3476* 






3542* 


3559* 


3575* 


3614* 


3621 * 


3628* 






4060* 


4104* 


4109* 


4U0* 






PCM 


017047 


2466 


2483 


4293« 








PCONT 


007326 


2766* 


2781 


27838 


281 1* 


2921* 


3064* 


PCSCOP 


006556 


551 


757* 


758 


2543 


2596* 


2624 


PIRQ = 


177772 


99« 












PIRQVEs 


000240 


193« 












PLOOP 


007322 


2767* 


2782« 


2812* 


2920* 


3063* 




PRESTR 


013130 


2843 


2882* 


3485* 


34938 


3524 




PRETES 


002034 


527 


548» 










PR0 = 


000000 


1 16# 












PPl = 


000040 


117« 












PP2 = 


000100 


1 18« 












PR3 s 


000140 


1 19# 












PR4 = 


000200 


1 20t 


1 328 










PR5 = 


000240 


1 21 # 


1 387 










PR6 = 


000300 


1 22» 












PR7 = 


000340 


1 23# 


215 


217 


221 


223 


225 






1 26 3 


1281 


1290 


1323 


1 344 


1379 


PS s 


177776 




97 










PSW = 


177776 


97K 


1 328* 


] 3 8 7 * 








PTYPl 


007264 


2765* 


2773» 


2 8 1 * 


2919* 


3062* 




PWRVECs 


000024 


1 88 t( 


396 1 * 


3952* 


3971* 


397 7 * 


3989* 


RANDAT 


012470 


3288 


337 1 « 


3374 








RANGEN 


012540 


3371 


33H6# 










RANUM 


012632 


3372 


3401 * 


34068 








RAN! 


012626 


436» 


3387 


3393* 


3398 


3404k 




RAN2 


012630 


437* 


3388 


3395 


3400* 


3405 # 




RDCHR = 


104406 


3892 


3952« 










RDCODE 


012152 


2874 


32451! 










RDDONE 


010110 


2892 


2905t 










RDER = 


000017 


200» 


3184 


3246 








RDERR 


010142 


2893 


?915» 










RDIE a 


000107 


205« 


2894 










RDlilN = 


104407 


3953« 












RDONLY 


006762 


2307 


2704# 










READ 


0100H 


2707 


2888# 


3022 








READCH 


010634 


2722 


2725 


2740 


3021 # 






REBEGI 


002466 


676 


754 


864 


8668 


2467 


2484 


RECAL = 


040001 


207« 


2395 


2866 








REREAD 


010024' 


2890# 


2920 


2926 


2950 


2967 


2988 


RESEPR 


006154 


216 


2475» 










RESREGs 


104411 


3955# 


4059 










RESTAR 


001350 


404 


430» 


3210 


3994 






RESVECs 


000010 


183# 












RETURN 


010564 


2973 


2991 


2999« 








RTJUST 


015530 


4090* 


4110 










RTN 


010012 


2865 


2883« 










RTSPC 


006572 


2630 


2632« 










RXCS 


001206 


306# 


434 


553 


830* 


917* 


919 






1301* 


1341* 


1359* 


1401* 


1420* 


1431* 






1726* 


1825* 


1844* 


1910* 


1912* 


1916 






2096* 


2098* 


2102 


2125* 


2165 


2175* 






2335 


2338* 


2395* 


2629 


2636 


2757* 






3037 


3159 


3166 


3184* 


3212 


3246* 



2949 


2966 


2989 










504* 


3463* 


3464 


3467 


3471 


3475* 


3501 


3538» , 














3115 


3239 


4101 










2407* 


2409* 


2423* 


2436* 


2448* 


3278 


32928 


1393* 


1 432* 


1548* 


1616* 


1623* 


1625* 


1626* 


1 729* 


1808* 


1809* 


1826* 


1845* 


1913* 


19b9* 


2148* 


2152* 


2156* 


2161* 


2164* 


2176* 


21/9* 


2320* 


2321* 


2324* 


2330* 


2332* 


2333* 


2339* 


2398* 


2408* 


2410* 


241 1* 


2412* 


2414* 


2427* 


2696* 


2704* 


2705* 


2706* 


2707* 


2710* 


2717* 


2724* 


2725* 


2728* 


2735* 


2736* 


2737* 


2738* 


2750* 


2792* 


2803* 


2822* 


2829* 


2834* 


2838* 


2881* 


2883* 


2888* 


2889* 


2895* 


2907* 


2910* 


2999* 


3012* 


3013* 


3022* 


3029* 


3057* 


30/8* 


3154* 


3175* 


3185* 


3189* 


3196* 


3202* 


3204* 


3 301* 


332 1* 


3344* 


3364* 


3371* 


3373* 


3380* 














StQ 


3505« 


3510* 


3514* 


3516* 


3527* 


3529* 


3540* 


3642* 


3644* 


3833* 


3993 


4015* 


4018* 


4055* 


26268 


2789 


2905 


2970 


300 3 






227 


431 


1022 


1030 


1076 


1 125 


1240 


1404 


2306 


2426 


2451 








3990* 














3126 














1082* 


1196 


1198 


1243* 


1248 


1250 


1287* 


1435 


1538* 


1539 


1541 


1551 


1622* 


1641 


1968* 


1971 


1974 


2043* 


2045* 


2049 


2073* 


2181 


2190 


2197 


2248* 


2251 


2254 


2323* 


2758 


2796 


2851* 


2866* 


2869 


2899 


3036* 



MAINDEC-n-DZRXB-E MACYll 27 ( 732) 

DEBXBE,PU CPOSS REFEPENCE TABLE « 



16-MAR-76 15155 PAGE 
• USER SYMBOLS 



RXDB 


001210 


34e« 


434* 


435* 


66B 


973 


i486 


1590 


1628* 


1643 


17 34 


1829 


1846 


1954 






1975 


1985 


2063 


2077 


2115 


21 29 


2147* 


2155* 


2 1 9 2 


2 i 8 4* 


2 1 9 1 


219 3* 








2255 


2263 


2326* 


2337 


2341 


2760* 


2854* 


2857* 


3040 


3158 


318 7 


3 1 9 1 


J2 






3249 


3253 
























RXERPO 


01 1652 


3160 


3178 


3 I 8 H 


3182 




















RXPWR 


01 2006 


3163 


3208 # 
























R0 


S%000000 


104^ 


402* 


408* 


442 


552* 


554 


667* 


674* 


675 


9 1 8* 


g 


9 7 2* 


974 






1195* 


1196 


1247* 


1248 


1337 


1397 


1 B5ft* 


1436 






49 3 


1 5 42* 








1552 


159 3* 


1597* 


1598 


17 3 3* 








1 fi A7» 


18 51 


1 9m7« 


1 9 1 5* 


19 17 






1953* 


1957 


197 3* 


198 4* 


1987 


2039* 


5i;i4B* 


5a^rt 


5^65«> 


55tis# 


5^76* 










2 1 1 * 


2103 


211 4* 


2116 


2 1 28 * 


2130 


2174* 


51 96* 


T Qfl 




05 3H 


2253* 


22^2* 






2264 


2326 


2376* 


249 1 * 


2496* 


2498* 


2499* 




5 S 51 1 * 


5^«5« 


55« 3* 


2549 








3042 


3056* 


3092 


3093* 


3366* 


3387* 






t^Ql «■ 


^^95» 


3303 




3 3ys# 






3396« 


3397* 


3 398* 


3399* 






3597 


3598* 






3750 


3775* 


305^ 






3929* 


3930 


393 1 * 


3932* 


3933* 


3934* 


3963 


3988* 








4058* 


40 






4091 * 












4102* 














Ri 


s%00000 1 


105^ 


553* 


554 


669* 




67 3* 




y 1 9* 


920 


973* 


07 


1198* 


1250* 






1316^ 


1372* 




14 35* 


1436 


1 7^1* 


1 d88« 


1 49 1 * 




1541* 


1551* 


1 5b 2 


l59l* 






1592* 


1596* 


1598 


1643* 


17 34* 








18 3 2 






1851 


1 9 1 6* 






l9l7 


1955* 


1956* 


1 957 


197 4* 


1 9fl«i» 




2 4 9 * 




206 3* 


2064 




20^8 






2102* 


2103 


2115* 


2116 




2130 


2165* 


59«h* 


5^9^* 






5537* 


22 3 8 






2254* 


226 3* 


2264 


2337* 


2377* 


2493 


2552 




50 35 

29 32 


3^51* 
3021 


3028 


3 7k 

3076 


308 3* 






3132* 


3751 


3774* 










4 4 9 * 












R2 


s%000002 


1 06# 


668* 


669 


1 1 8 * 


1019 


1021* 


1022* 




75 


107 3 


f 


10 6 








1 236» 


12 37 


1 ^7^4 




1^78* 


127 7* 


127 8 


1 5fiW* 


1 2 B 1 * 


1282* 


1 3 19* 


1 320 


132 2* 














it-id 


1 rIb* 


1 


1486* 
1 tac 


1487 


1590* 


1 59 1 


1621* 


1 6 2 9* 






1676 


1725* 




1829* 


0% 










1955 




l98b» 


2040* 






2061^ 


209 3* 




2142* 






5173* 


2 1 o2* 


21'!* 




^565* 




2 3 W4* 






2 3 05 * 


2 306* 


2322* 










4rt it* 


4ttta* 




2451* 


2546 








3320* 


3323 


3752 


37 7 3* 


3965 


3986* 








4Md4 


4045* 


4 5 * 


051* 


P3 


»%000003 


1 07 # 


756 


757 


760 


867* 


8 6 8 * 


869 


H7 1 * 




■*ft97» 




^ H W * 








3712* 


3713* 


3714 


37 2 3* 


3753 


37 7?* 


3888 


3889* 





3893* 


3(40 


38 


3900 






3902* 


3904* 


3966 


3985* 


4042* 


4047* 


405 3* 


4054 












R4 


=%000004 


1 08 » 


1624* 


1628 


1727* 


1733 


25 3 3* 




25 35 


- - 


3377* 


3 37 8 


3689 








3692* 


369 3 ft 


J694 


3695% 


3709 


37 1 1 * 


37 1 9» 


3722* 


37«S4 


3771* 


3967 


3984* 


40 404* 






4043 


4049 


4051 






















R5 


=%000005 


109 8 


852* 


857* 


860 


2556* 


3009* 


3085* 


3114* 


3278* 


3 27 9* 




3690 


3 6 9 6 * 






3698* 


3700* 


3 7 1 * 


3702* 


3703 


3 7 2 1 * 


3755 


37 70* 


3968 


398 3* 


4^4 1* 


4045 


405 2 






4 108 


4 1 1 1 » 
























R6 


=1000006 


1108 


1 1 2 
























P7 


=%000007 


111$ 


113 
























SAVREGs 104410 


3954« 


4033 
























SA200 


001232 


244 


408 S 


875 






















SA202 


001222 


245 


402# 
























SCOPIN 


006536 


2567 


2614 


2b2U 






















SDN 


006574 


1432 


1548 


1639 


1826 


1845 


1969 


2074 


2126 


2144 


2152 


2161 


2179 


2188 






2194 


2249 


23 3 3 


2339 


239b 


2636tt 


2867 


3185 


3247 










SECCNT 


013414 


2801* 


2911* 


302 3 


3128* 


3551* 


3552* 


3553* 


3554* 


3561# 










SECLMT 


001726 


482 


50ki 
























SEEKER 


007526 


2822 


2825S 


2928 






















SEKRTY 


007602 


2816* 


2837 


2839* 


2926* 




















SEKTYP 


007606 


2829 


2841(1 
























SEQUEN 


013136 


480* 


2447* 


2453* 


3461 


3466* 


3486 


34969 














SEOl 


013236 


3488 


35238 
























SEQ2 


013272 


3489 


35 368 
























SGLDEC 


01 5600 


852 


2556 


30fr*9 


30B5 


3114 


4108* 
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SP 


=%000006 


1125! 


403* 


410* 


412* 


417 


429 


431* 


432* 


473* 


491* 


496* 


517* 


522* 








759* 


900* 


1019* 


1023 


1025* 


1026* 


1030* 


1031* 


1073* 


1077 


1079* 


1060* 


1125* 








1 126* 


1237* 


1241 


1 258* 


1259* 


1263* 


1 264* 


1278* 


1282 


1284* 


1285* 


1290* 


1291* 








1320* 


1324 


1 326* 


1330 


1331 


1333 


1 337* 


1 338* 


1344* 


1345* 


1376* 


13B0 


13tf5* 








1389 


1390 


1392 


1 397* 


1398* 


1404* 


1405* 


1636* 


2163* 


2461* 


2467* 


2478* 


2464* 








2517 


2533 


2535* 


2540* 


2543* 


2546* 


2549* 


2552* 


2596 


2613 


2624* 


2631* 


26 78* 








2695* 


2751 * 


2752* 


2754* 


2755* 


2764 


27Bb* 


2787* 


2793* 


2794* 


28»6 


2643* 


2892* 








2893» 


2896* 


2897# 


2915 


2965* 


3003* 


3031* 


3032* 


3033* 


3034* 


3061 


3V)88* 


30^4* 








3174* 


3198* 


3205* 


3212* 


3221* 


3228* 


3255* 


3261* 


338 1 


3448* 


3597* 


3598 


3599* 








3601 


3602 


3603* 


3605 


3607 


3609 


3615 


3617* 


3619* 


3627* 


3631 


3635 


3636 








3640 


3680* 


368 1 


3682 


3683* 


368 8* 


3689* 


3690* 


3696 


3721 


3722 


3723 


3724* 








3725* 


3750* 


3751* 


3752* 


3753* 


3754* 


3755* 


3756* 


3757* 


3758* 


3759* 


3766* 


3767* 








3768* 


3769* 


3770 


3771 


3772 


3773 


3774 


3775 


3793* 


3794* 


3795 


3802* 


38l(55» 








3806* 


3810* 


3811* 


3815 


3818* 


3822 


3824 


3826 


3827* 


3834 


3836 


3838* 


3839 








3841* 


3842* 


3843* 


3844* 


3845* 


3860* 


3861* 


3864* 


3865* 


3866 


3870* 


3871* 


38 7 2 








3875 


3877 


3879* 


3888* 


3893 


3904 


3905* 


3906* 


3907* 


3928* 


3929 


3963* 


3964* 








3965* 


3966* 


3967* 


3968* 


3969* 


3970 


3978* 


3982 


3983 


3984 


3985 


398b 


3987 








3988 


3993* 


4013 


4014* 


4016* 


401 7* 


4034 


4036* 


4090* 


4091 


4102 


4103* 


4108* 


SPACE 




016641 


2539 


2542 


2545 


2548 


2551 


2554 


4260# 














STACK 




001200 


87S 


297 


403 


410 


759 


















STKLMl 




177774 


98# 


























STB 




006560 


1634 


21 40 


2148 


2156 


2176 


2185 


2629« 


2852 


2855 










STYPl 




007540 


2821* 


2828S 


2927* 






















SUBSCO 


IS 


104412 


957 


1015 


1 189 


1228 


1255 


1273 


1470 


1532 


1547 


1585 


1672 


1836 


1946 








1963 


1980 


2056 


2069 


2109 


2121 


2230 


2244 


2260 


2375 


3956« 






SUM 




012536 


3049 


3277* 


3376* 


3384« 




















SWHLTl 




007550 


2827 


2830« 
























SWR 




001216 


377jt 


409» 


414 


418* 


423 


847 


8 92 


898 


2525 


2566 


2572 


2622 


26 71 








2771 


2777 


2780 


2826 


2831 


2836 


2B64 


2872 


2876 


2879 


2939 


2944 


2947 








2955 


2960 


2963 


2975 


2983 


2986 


2994 


3070 


3072 


3098 


3110 


3124 


3145 








3151 


3169 


3177 


3193 


3789 


3826* 


3969 


3982* 












SWREG 




000176 


238» 


418 


423 


3789 


3802 


















SW0 


a 


000001 


151# 


2572 
























SW00 


s 


000001 


1411 


151 
























SW01 




000002 


140# 


150 
























SW02 


3 


000004 


139# 


149 
























SW03 


33 


000010 


138S 


148 
























SW04 




000020 


137s 


147 
























SW05 




000040 


136S 


146 
























SW06 




000100 


135# 


145 
























SW07 


s 


000200 


U4# 


144 
























SW08 


B 


000400 


133« 


143 
























SW09 




001000 


132# 


142 
























swi 




000002 


150# 


























SW10 


S 


002000 


131« 


892 
























swu 


S 


004000 


130» 


2622 


2780 


2836 


2879 


2947 


2963 


2986 


3124 










SW12 


3 


010000 


129# 


898 
























SW13 


S 


020000 


128» 

3177 


2525 
3193 


2671 


2771 


2826 


2939 


2955 


2975 


2994 


3070 


3110 


3145 


3169 


SW14 




040000 


127» 


847 
























SW15 


S 


100000 


126# 


2566 
























SW2 


s 


000004 


i49# 


























SW3 


s 


000010 


I48# 


























SW4 


s 


000020 


H7S 


























SV5 


m 


000040 


146# 


























SW6 




000100 


I45# 
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SEQ 0130 



SW7 s 


000200 


1 44# 










SW8 s 


000400 


1438 


2864 








SW9 s 


001000 


142» 


3072 








S2BIG 


017140 


528 


4306« 








TAB 


016106 


3259 


4159a 








TARGET 


013126 


2316* 


2857 


3047 


3050 


3221 






3526* 


3528*^ 


3539* 


3541* 




TBITVEs 


000014 


184# 










TESTS 


002214 


757 


760 


76l« 






TKVEC s 


000060 


191# 










TPVEC a 


000064 


192# 










TRAPVEs 


000034 


190# 










TPKCNT 


013124 


2708* 


2726» 


2741* 


3472* 


3473* 


TRKLMT 


001642 


479 


486^ 








TRTVLCs 


000014 


185« 










TSECTO 


013416 


2317* 

3574i* 


2854 


3046 


3051 


3226 


TYPADR 


012050 


29B0 


3081 




3220# 




TYPCOD 


012220 


3204 


3254tl 








TYPE s 


104400 


411 


461 


462 


464 


472 






528 


837 


842 


843 


849 






2539 


2542 


2545 


2548 


2551 






2842 


2847 


2941 


2942 


2957 






3080 


30S2 


3067 


3091 


3096 






3172 


3179 


3180 


3195 


3197 






3232 


3235 


3237 


3254 


3259 






3828 


3847 


389b 


3699 


3903 


TYPERR 


011210 


3077 


3084« 








TYPOC = 


104401 


3803 


39458 








TYPON = 


104403 


2541 


2544 


254"? 


2550 


2553 


TYPOS s 


104402 


474 


492 


497 


518 


523 






3213 


3222 


3229 


3256 


3946# 


T0NOTH 


002166 


756« 


761 








Tl 


002620 


761 


917« 








T10 


004140 


764 


17158 








Tl I 


004226 


764 


1 807 » 








T|2 


004216 


764 


1 802* 








Tl 3 


004272 


764 


1 823» 








T14 


004416 


764 


19068 








T15 


004610 


764 


2039» 








T16 


004750 


7h4 


20928 








Tl7 


005216 


764 


2173S 








T2 


002740 


761 


1 0728 








T20 


005462 


767 


2281 « 


2905 






T21 


005506 


767 


2316« 








T21X 


005610 


2330 


23328 


2414 






T22 


005672 


767 


2388U 








T23 


005750 


767 


2407S 








T24 


006016 


767 


2423!» 








T24X 


006024 


2424# 


2437 








T25 


006050 


767 


2436» 


2789 


2970 




T26 


006062 


767 


2447« 








T3 


003262 


761 


1 316# 








T4 


003420 


761 


1 372» 








T5 


003564 


761 


MllK 








T6 


004010 


761 


1615# 









3467* 


3485 


3492» 


3503* 


3508* 


3511 


3513* 


3515' 


3474« 


3477* 


3479* 


3491S 










3555» 


3556* 


3562» 


3565* 


3566* 


3567 


35b9* 


3570^ 


477 


481 


490 


495 


501 


516 


521 


526 


850 


674 


2459 


2466 


2475 


24H3 


2530 


2532 


2554 


2574 


2674 


2773 


2774 


2775 


2828 


2841 


2958 


2978 


2981 


2997 


3002 


3007 


3011 


30/9 


3112 


3116 


3119 


3121 


3122 


3148 


3149 


3171 


3203 


3208 


3209 


3211 


3216 


3217 


3220 


3225 


3260 


3263 


3610 


37J5 


3800 


38wl 


3804 


3817 


3944« 


3991 


4100 












3095 


3262 


3947» 












2463 


2480 


2536 


2679 


2844 


3004 


3089 


3199 
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TABLE - 
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SYMBOLS 




T6FILL 


004026 




1616 


lb21# 


1 808 


2391 


2408 


T7 


004142 




761 


1 723» 








T7EMPT 


004152 




1723 


J 725!! 


1 fl09 


2378 


2398 


UNITSE 


012724 




444* 


447* 


45l» 


454* 


460* 








1823 


1842 


19 08 


2041 


2094 








3233 


3423 


3 4 25 


3427* 


3428* 


WRITE 


007134 




2721 


2724 


2739 


27488 




WRTDON 


007430 




2786 


2801 « 


2B1 1 


2823 




WPTER 


007444 




2787 


280fa« 








WPTIE = 


000105 




2048 


2788 








WRTSEK 


007504 




2808 


2816» 








WTDDIFs 


0001 15 




206i< 


2791 








WTROCK 


007066 




2452 


2735# 








XERROR 


006232 




224 


2bl7» 








XFRBSiT 


007210 




27608 










XHOME 


010004 




2870 


2882« 








XID 


013134 




3468* 


3469* 


3472 


3495# 


3524 


XOD 


013132 




3470* 


347 1* 


3473 


3494» 




XPATGE 


012356 




3317» 


3335 








XREAD 


010020 




2899» 


2912 


3130 






XSA202 


001574 




443 


457 


463 


469 


47l» 


XSCOPE 


006476 




220 


2586» 








XSDN 


006736 




2637 


2693« 








XSUBSC 


006516 




260H 


3956 








XWRITE 


007140 




2749# 


2766 


2804 






XWTRDC 


007072 




2736« 


2745 








XXPATG 


012426 




3344# 


3346 


3355 






SAUT08 


015044 




427* 


3797 


3918# 






SCHARC 


013722 




3612* 


3622* 


3629 


3638* 


3643# 


$CKSWR 


014270 




3789» 


3951 








SCNTLG 


015015 




3800 


39131 








SCNTLU 


015010 




3817 


3912# 








SCRLF 


013737 




3611 


365i# 


3828 


3912 




$DB2D 


015334 




4015 


4033# 








$DECVL 


015514 




4035 


4081« 








8FILLC 


013734 




3615 


3650# 








$FILLS 


013733 




3649# 










$GTSWR 


014340 




3801# 


3949 








$HD B 


000003 




21 


22 








SILLUP 


015262 




3961 


3977 


3996S 






SINTAG 


015045 




3829 


39191 








SLF 


013740 




3654# 


3903 


3912 






$MAIL s 


»«*»## 


U 


423 


3599 








$MNEW 


015033 




3804 


3916# 








SMSWR 


015022 




3801 


39141 








SNULL 


013732 




3617 


36481 








SOCNT 


014164 




3687* 


3716* 


3729# 






SOMODE 


014166 




3682* 


3686* 


3691 


3694* 


3705* 


SPOWER 


015270 




3209 


3992 


3999# 






SPWRAO 


015256 




3994# 










$PWRDN 


015U6 




222 


3961# 


3989 






$PWRM6 


015252 




3992# 












015170 




3971 


3977# 








SQUES 


013736 




3652# 


3847 


3896 


3912 




SROCHR 


014552 




3860# 


3952 








SRDDECs 




U 


3954 











470* 
2388 
3430 



548* 
2528 
3432 



671 
2560* 
3434* 



832 
2850 
3435* 



866* 
2979* 
3440# 



902* 
2992* 
3444 



1489 

3067* 

3446 



1594 

3lb3* 

3b/^ 
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SRDLIN 


014672 




3888s 


395 3 








SPDOCTs 




U 


3954 










$RDSZ a 


000010 




388 i » 










SPESRE 


014226 




3765# 


3955 








$P2A 3 




U 


3956 










$SAVRE 


014170 




3749» 


3954 








SSAVR6 


015266 




3970* 


3978 


3979* 


3990» 


3998» 


SSB2D 


015300 




401 31! 


4109 








$SETUP= 


0001 1 4 






420 


3784 


3918 




5STUP = 


177777 




240# 










SSWR = 


160000 




21 


22S 


3995 






STK8 


01 4266 




3781 # 


3793 


3810 


3864 


3870 


STKS 


014264 




3780s 


3791 


3807 


383 1» 


3862 


STN s 


000001 




21# 










STNPWR 


015444 




4040 


4041 


4061 8 






STPB 


013730 




3635* 


3647# 








STPFLG 


0137 35 




3593 


3651 # 








STPS 


013726 




3633 


364b!f 








STRAP 


015046 




226 


3928S 








STRP = 


00001 3 




3936# 
3957s 


3945* 


3946« 


3947« 


3948« 


STRPAD 


015070 




3933 


3943# 










015000 




3889 


38 90 


3Q07 


39ll« 




STYPBNs 




U 


3948 










STYPDS= 




U 


3948 










STYPE 


01 350(3 




3593» 


3936 


3944 






STYPEC 


01 3656 




3614 


3621 


3628 


3633» 


3634 


STYPEX 


013724 




3639 


3641 


36448 






STYPOC 


013766 




3685« 


3945 








STYPON 


014002 




3b84 


3687tt 


3947 






STYPOS 


013742 




3680(! 


394b 








$0FILL 


014165 




36fil« 


3685* 


3695 


37309 






017604 




210« 


212 


21 3» 


219« 


229» 








3647 


3648 


3649 


3650 


3651 








3918 


3919 


3 9 20 


3973 


3997 



3947« 3948« 3949 3950« 3951 3952* 3953» 3954» 3955» 3956# 



233« 
3652 
4081» 



236« 
3653 
43 38S 



2418 
3654 
43458 



2978 
3655 



8878 
3780 



1803 
3 781 



26918 
39U« 



3646 
3912 



DZPXBf ,PU 



COMMEn 
ENDCOM 
ERROR 



ESCAPE 

GETPPI 

GETSWR 

MULT 

M7727 

M7846 

NEWTST 

POP 

PUSH 

REPORT 

SCOPE 

SETPRI 

SETTPA 

SETUP 

SKIP 

SLASH 

SPACE 

STARS 



SWPSU 

TRMTRP 

TYPBIN 

TYPDEC 

TYPNAM 

TYPNUM 

TYPOCS 

TYPOCT 

TYPTXT 

SSESCA 

SSNEwT 

SSSET 

SSSKIP 

,EQUAT 

,HEADE 

.SETUP 

,SDB2D 

,SPOWE 

,$READ 

sSSAVE 

,S5B2D 

.STRAP 

.STYPE 

.STYPO 



68 
1747 

78 
1791 

88S 
1546 
2108 
i94S 
1948 
7« 
194S 
2488 
2468 
2206 
1948 
1948 
1948 
1948 
898 
68 
39368 
1948 
1948 
1948 
1948 
68 
396 
3366 
3975 

1948 
39368 
1948 
1948 
194# 
1948 
58 
1948 
1948 
1948 
1948 
3936# 
1948 
58 
58 
58 
68 
68 
7« 
68 
68 
58 
58 
51 
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1948 


564 


685 


9?7 


981 


1041 


1085 


1133 


1204 


1443 


1502 


1559 


1649 


1683 


1858 


1924 


1994 


2207 


2283 


2347 


2648 
















1948 


649 


750 


953 


1011 


1060 


1120 


1163 


1224 


I4b6 


1528 


1581 


1668 


1702 


1991 


1944 


2025 


2226 


2300 


2371 


2663 
















562 


682 


925 


979 


1039 


1131 


1202 


1254 


1272 


1296 


1351 


1414 


1441 


1500 


1557 


1605 


1647 


1681 


1745 


1837 


1856 


1922 


1962 


1979 


1992 


2055 


2068 


2082 


2120 


2134 


2205 


2243 


2259 


2269 


2345 


2647 














1948 


420 


























618 


731 


1447 


1772 


1862 


1998 


2351 
















563 


684 


926 


980 


1040 


1084 


1132 


1203 


1501 


1558 


1648 


1682 


1746 


19^3 


3770 


3962 


3983 
























3750 


3963 


3969 
























550 


1064 


1300 


1 358 


1419 


1606 


1706 


1795 


1895 


2029 


2083 


2135 


2270 




1948 


1337 


1344 


1 397 


1404 




















3945 


3946 


3947 


3949 


3951 


3952 


3953 


3954 


3955 


3956 










1948 


251 


25 2 


253 


264 


265 


266 


271 


272 


273 


292 


293 


294 


385 


2509 


2510 


251 4 


2515 


2712 


2730 


3140 


3272 


3295 


3304 


3329 


3337 


3348 


3357 


3421 


3483 


3498 


3518 


3531 


3578 


3657 


3734 


3779 


3784 


3852 


3881 


3922 


3959 


4004 


4022 


4083 


4340 






















1948 


473 


2461 


2478 


2843 


3003 


3198 


3212 


3221 


3228 


3255 








3802 




























3945 


3946 


3947 


3949 


3951 


3952 


3953 


3954 


3955 


3956 











1 1 

240 
4020 
3957 
3777 
3732 
4002 
3920 
3576 
3655 
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5EQ 0134 



ADC 


55 7 




'^900 












ADD 


435 


556 




1 h ^fe 












3376 


3387 


3386 


3398 


1 AAB 




3570 


lA 1 


ASL 


871 


2498 


2499 


2500 






3279 






















BCC^ 


















BEQ 


Ale 






555 




8 3 3 


8 48 


858 




1494 


1540 


155 3 


1599 


1677 


17 37 


1833 


1852 




2117 


2131 


2 1 99 


2239 


2265 


25 20 


2567 


2614 




2906 


29 1 7 


2987 


299 1 


3 1-05 


3108 


3118 


3125 




3465 


3487 


3512 


3573 


3606 


3641 


3710 


3798 


BGE 


3568 
















BGT 


3075 


371 7 


38 37 


3878 










BHI 


487 


489 


513 


515 










BHIS 


870 
















B IC 


460 


471 


548 


670 


673 


. 674 


8 30 


866 




I49l 


1 492 


1592 


1596 


1831 


1850 


1956 


2453 




346 3 


3504 


3509 


35 2 3 


3538 


3565 


3707 


3794 


BiS 


447 


45 1 


454 


470 


1082 


1287 


1341 


1382 




3021 


3028 


3067 


318 3 


3428 


34 35 


3466 


3475 


BISB 


2850 
















BI r 


4 45 


449 


8 32 


847 


892 


898 


1539 


2525 




2780 


2796 


2807 


28 26 


28 36 


2864 


2872 


2879 




2975 


2986 


2990 


2994 


3070 


3072 


31 10 


3124 




3233 


3249 


3 4 23 


3 4 3 2 


3446 


3572 








2972 


3166 


36 29 












at n 


3 8 91 
















BLT 




3 718 






046 








SMI 


672 


1490 


15 95 


2 4 95 


3160 


3462 


3488 




BnE 


422 


424 




446 


457 


479 


510 


55 8 




2587 


2602 


26 37 


2709 


27 27 


2742 


2772 


2790 




2902 


2912 


2924 


2937 


2940 


29 48 


2956 


296 4 




307 3 


3111 


3146 


3165 


3167 


3170 


317 8 


3194 




3608 


3616 


36 30 


36 37 


3708 


37943 


3796 


3816 




4057 


4096 














bpl 


45 3 


1642 


18 24 


1843 


1 909 


1972 


2042 


2095 




2870 


287 7 


2909 


2933 


2945 


296 1 


2984 


3038 




3507 


3537 


3594 


36 34 


3706 


3792 


3808 


3863 




242 


243 


404 


4 1 6 


426 


44 8 


463 


469 




1177 


1329 


1332 


1388 


1391 


1408 


1433 


15 49 




1 9 1 1 


1 9 1 4 


1970 


2044 


2047 


2075 


2097 


2 1 00 




215 3 


215 4 


2 1 5 7 


2159 


2162 


2166 


2l77 


2l78 




2250 


2325 


2328 


2334 


2 3 40 


2397 


2745 


2762 




3045 


3120 


3186 


3190 


3236 


3248 


3252 


3302 




3478 


3480 


3489 


3596 


3613 


3623 


3632 


3639 




3897 


3973 


3997 


4048 


4098 








BVS 


845 
















CLC 


3322 


3390 














CLR 


408 


438 


439 


440 


444 


480 


504 


549 




1258 


1284 


1316 


1372 


1542 


1597 


1621 


1725 


















2 1 7 3 




2390 


2407 


2527 


2595 


2668 


2693 


2753 


2754 




3030 


3033 


3132 


3277 


3300 


3334 


3394 


3468 


CLRB 


3554 






^b!^ A 


4058 








CMP 




4 1 7 






675 


839 


869 








1598 


hi 




1B32 


1851 


1917 


1 
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2198 


22 38 




Oh 


2789 


2905 


2970 










3872 




3877 


3890 


4052 




CmPB 


455 


486 


488 




514 


3042 


3524 


3d 






39*30 


4095 












COMB 


3 345 
















DEC 


2496 


2708 


27 26 


774 1 


2801 


2911 


3128 


1 






3622 


37^15 


■J7 1 »s 










EMT^ 


















HALT 




468 


8 5 4 


894 


1184 


2568 


2779 


2 33 




















Twr 




838 






1629 


1735 


2142 


2150 




^1 n 








3093 


3101 


3181 


3 320 




3 719 


if AT 


3980 


4047 












^ ^ OQ 


3642 














lOT 


















JMp 


244 


2 45 




864 


875 


1065 


1303 


1360 




1 8 96 




o « A 


2136 


2271 


2308 


2331 


2399 




2782 


278 3 


2800 


2804 


2813 


2839 


2903 


2922 




3102 


3127 


3131 


3163 


3210 


3280 






JSR 


755 


852 


860 


1334 


1393 


1432 


1548 


1616 




1 809 


1 926 


I 8 45 


l9l 3 


1969 


2046 


2074 


2099 




2176 


2179 


2185 


2188 


2194 


2249 


2307 


2318 




2378 


2391 


2393 


2394 


2396 


2398 


2408 


2410 




2704 


2705 


2706 


2707 


2717 


2718 


2719 


27 20 




27 37 


27 38 


27 39 


27 40 


2743 


2748 


2749 


2750 




28 7 4 


2888 


2889 


2895 


2907 


2928 


2935 


2977 




3081 


3085 


3114 


3126 


3130 


3147 


3154 


3185 




3321 


3344 


3364 


3371 


3373 


3614 


3621 


3628 


MOV 


40 3 


409 


410 


412 


413 


418 


419 


429 




531 


551 


552 


553 


666 


667 


668 


669 




9 1 8 


9 1 9 


973 


1018 


1019 


1021 


1022 


1023 




107 7 


1080 


1125 


1126 


1 195 


1198 


1236 


1237 






127 7 


1278 


1280 


1281 


1282 


1285 


1 290 




1327 


1328 


1331 


1333 


1337 


1338 


1344 


1345 




^ E f ^ 


1 390 


1392 


1397 


1398 


1404 


1405 


1434 




1551 


1590 


1591 


1593 


1615 


1622 


1624 


1643 




1829 


18 30 


1844 


18 47 


1848 


1849 


1910 


1912 




1975 


1984 


1985 


204 3 


2045 


2048 


2049 


2062 




2102 


2115 


2125 


2128 


2129 


2165 


2175 


2181 




2237 


2248 


2253 


2254 


2255 


2262 


2263 


2304 




2337 


2338 


2341 


2413 


2423 


2424 


2425 


2426 






2484 


2491 


2517 


2533 


2535 


2540 


2543 




2694 


2751 


2752 


2755 


2757 


2765 


2766 


2767 




2821 


2843 


2851 


2866 


2882 


2892 


2893 


2897 




3031 


3032 


3034 


3036 


3049 


3056 


3062 


3063 




3212 


3221 


3226 


3228 


3246 


3255 


3261 


3276 




3401 


3472 


3477 


3479 


3503 


3508 


3513 


3539 




3689 


3690 


3696 


3703 


3721 


3722 


3723 


3724 




3756 


3757 


3758 


3759 


3766 


3767 


3768 


3769 




3826 


3831 


3860 


3861 


3888 


3889 


3904 


3905 




3963 


3964 


3965 


3966 


3967 


3968 


3969 


3970 




3986 


3987 


3988 


3989 


3990 


3993 


4013 


4014 




4040 


4041 


4090 


4091 


4092 


4102 


4103 


4108 


MOVB 


427 


491 


496 


511 


517 


522 


1628 


1733 




2894 


3040 


3047 


3048 


3052 


3055 


3092 


3158 




3372 


3377 


3467 


3469 


3471 


3485 


3526 


3550 







3041 


3050 


3051 


amIq 


3205 








3827 


4016 


404 


4051 


42 


3843 


3932 










893 


899 


921 


975 


1197 


1249 


1437 


1 9 1 8 


1958 


1988 


2051 


2065 


2079 


2104 


26 2'3 


2640 


2672 


2781 


2797 


2808 


2900 


3129 


3162 


3182 


3188 


3250 


3324 


3379 


3825 


3840 


4094 










868 


902 


1243 


1301 


1359 


1420 


14y8 


2503 


3083 


3227 


3389 


3399 


3427 


3434 


3811 


3838 


3865 


3871 


3879 






1401 


1431 


2395 


2447 


2560 


2979 


2992 


3574 


3712 


3713 


3845 


4053 






2528 


2566 


2572 


2622 


2636 


2671 


2 7/1 


2899 


2916 


2923 


2939 


2947 


2955 


2963 


3145 


3161 


3 1 64 


3169 


3177 


3187 


3l93 


836 


840 


856 


1174 


2526 


2529 


25 7 3 


2799 


2802 


2827 


2837 


2865 


2873 


2880 


2971 


2973 


2976 


2995 


3024 


3043 


3071 


3234 


3424 


3433 


3447 


3525 


3548 


3600 


3823 


3830 


3867 


3873 


3895 


3901 


3981 


2252 


2336 


2389 


2630 


2759 


2778 


2832 


307 7 


3099 


3l52 


3426 


3431 


3445 


3502 


3869 














482 


500 


505 


527 


532 


754 


8/2 


1630 


1635 


1640 


1796 


1803 


1827 


18^*6 


2127 


2 J 4 1 


214 3 


2145 


2146 


2149 


2 1 5 1 


2180 


2183 


2186 


218 7 


218 9 


? 1 92 


2 1 95 


2823 


2853 


2856 


2868 


2929 


2949 


2998 


3311 


3327 


3 3 35 


3346 


3355 


3365 


33 74 


3684 


3699 


3720 


3819 


3846 


3848 


3874 


831 


841 


917 


972 


1025 


1079 


1190 


1807 


1906 


1907 


1953 


1986 


2039 


2040 


2174 


2235 


22 36 


2261 


2322 


2376 


2377 


2785 


2793 


2890 


2891 


2896 


3026 


3027 


3470 


3515 


3697 


3805 


3806 


3979 


4t^42 


974 


1196 


1248 


1330 


1389 


1436 


1493 


1987 


2050 


2064 


2078 


2103 


2116 


21i0 



6L(j 0135 



3378 


3511 


3789 


3795 


3815 


3822 


3834 


3605 


3607 


3615 


3636 


3640 


3797 


3829 


4055 














2878 


2946 


2962 


2985 


3100 


3153 


3595 


2158 


2327 


2392 


2409 


2519 


2761 


2798 


3363 


3474 


3528 


3549 


3553 


3571 


3711 


1421 


1607 


1617 


1724 


1810 


1812 


1815 


2415 


2428 


2437 


2454 


2673 


2682 


2768 


2950 


2966 


2967 


2988 


2989 


3025 


3065 


1623 


1625 


1634 


1639 


1723 


1728 


1808 


2126 


2140 


2144 


2148 


2152 


2156 


2161 


2320 


2321 


2324 


2330 


2332 


2333 


2339 


241 1 


2412 


2414 


2427 


2452 


2556 


2561 


2721 


2722 


2723 


2724 


2725 


2735 


2736 


2792 


2822 


2829 


2834 


2852 


2855 


2867 


2980 


2996 


3009 


3012 


3022 


3029 


30/8 


3189 


3196 


3202 


3204 


3247 


3251 


3301 


3833 


4015 


4109 


4110 








431 


432 


434 


436 


437 


441 


473 


757 


758 


759 


834 


851 


857 


867 


1026 


1030 


1031 


1072 


1073 


1075 


1076 


1239 


1240 


1241 


1247 


1250 


1259 


1263 


1291 


1319 


1320 


1322 


1323 


1324 


1326 


1375 


1376 


1378 


1379 


1380 


1385 


1386 


1435 


1485 


1486 


1487 


1538 


1541 


1550 


1726 


1727 


1802 


leii 


1814 


1825 


1828 


1915 


1916 


1954 


1955 


1968 


1973 


1974 


2063 


2073 


2076 


2077 


2096 


2098 


2101 


2182 


2184 


2190 


2191 


2193 


2196 


2197 


2305 


2306 


2316 


2317 


2319 


2323 


2329 


2436 


2448 


2449 


2450 


2451 


2461 


2467 


2546 


2549 


2552 


2555 


2596 


2624 


2669 


2786 


2787 


2794 


2810 


2811 


2812 


2816 


2919 


2920 


2921 


2926 


2927 


3003 


3008 


3064 


3084 


3088 


3094 


3113 


3184 


3198 


3278 


3318 


3362 


3386 


3393 


3395 


3400 


3558 


3597 


3598 


3602 


3617 


3680 


3688 


3725 


3750 


3751 


3752 


3753 


3754 


3755 


3770 


3771 


3772 


3773 


3774 


3775 


3802 


3906 


3907 


3928 


3929 


3933 


3961 


3962 


3971 


3977 


3978 


3982 


3983 


3984 


3985 


4017 


4034 


4035 


4036 


4037 


4038 


4039 


1734 


2326 


2760 


2788 


2791 


2854 


2857 


3191 


3245 


3253 


3310 


3316 


3343 


3354 


3551 


3555 


3569 


3599 


3627 


3635 


3681 
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3685 


3bH6 


3687 


3691 


3694 


3695 


3714 




4054 


4097 


4099 












NCG 


3692 
















NEGB 


3054 
















NOP 


861 


862 


863 


1028 


1029 


1083 


1124 


1261 




1715 
















RESET 


430 


859 














ROL 


3391 


3392 


3698 


3700 


3701 


3702 


3704 




ROLB 


3326 
















ROR 


3396 


3397 














RTI 


433 


1027 


1032 


1081 


1127 


1260 


1265 


1286 




2569 


2597 


2603 


2615 


2625 


2756 


2795 


2898 




3880 


3908 


3995 












RTS 


901 


903 


1626 


1637 


1708 


1729 


2164 


2379 




2744 


2803 


2838 


2848 


265 8 


28 81 




2910 




3206 


32l8 


3238 


3264 








3429 




3527 


1529 


3540 


3542 


355 9 


3575 




3934 


SBC 


4044 
















SEC 


3317 


3325 














SUB 


2534 


2678 


3473 


3552 










TRAP 


3936 


3945 


3946 


3947 


3949 


3951 


3952 


3953 


TST 


421 


442 


452 


458 


478 


756 


8 35 


U70 




2764 


2777 


2806 


2831 


2869 


28 76 


2908 


2915 




3098 


310 4 


3107 


3151 






3381 


3430 




3609 


3631 


3709 


3824 


IB 








TSTB 


509 


671 


1489 


1594 


1823 


1908 


2041 


2094 




3425 


3461 


3506 


3593 


36 33 


37^1 


3607 


3862 


.ASCII 


3652 


3653 


4295 


4306 


4 317 








, ASCIZ 


881 


883 


2577 


2684 


2689 


3654 


3912 


3913 




4139 


4144 


4147 


4151 


415 4 


4159 


4162 


4104 




4191 


4193 


4 199 


4204 


4 210 


4 213 


4217 


4222 




4247 


4250 


4254 


4258 


4260 


4 26 2 


4264 


4268 


jBLKB 


391 1 


4091 


4345 












(BYTE 


475 


476 


493 


494 


498 


499 


519 


520 




2538 


2680 


268 i 


2845 


2846 


3005 


3006 


3200 




3257 


3258 


3648 


3649 


3650 


3651 


3727 


3728 


iDSABL 


3849 
















5 ENABL 


4 


3782 














t END 


4347 
















, ENDC 


16 


8 8 


180 


19 4 


240 


252 


25 3 


254 




294 


295 


386 


397 


42 3 


429 


476 


477 




1014 


1045 


1063 


1089 


1123 


1 137 


1 166 


1 208 




1 506 


1531 


1563 


1584 


1653 


1671 


1687 


1705 




2028 


2211 


22 29 


2287 


2303 


2351 


2374 


2465 




2652 


2666 


2713 


2731 


2846 


2847 


3006 


3007 




3231 


3232 


3258 


3259 


3273 


329fa 


3305 


3330 




3519 


3532 


3579 


3599 


3658 


3735 


3780 


37 8 3 




3891 


3894 


3896 


3912 


3920 


3923 


3929 


3932 




3951 


3952 


3953 


3954 


3955 


3956 


3960 


3969 




4005 


4023 


4084 


4341 










.EQUIV 


88 


89 


97 


112 


113 


142 


143 


144 




1 70 


171 


172 


173 


1 74 


175 


176 


177 


i EVEN 


8 8 7 


257 8 






4338 








,IF 


12 


86 


152 


180 


240 


251 


252 


253 




293 


294 


385 


39b 


420 


423 


475 


476 




1011 


1042 


1060 


1 086 


1 1 20 


1134 


1163 


1205 
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1503 


1528 


1560 


1581 


1650 


1668 


1684 


1702 




2025 


2208 


2226 


2284 


2300 


2348 


2371 


2464 




2649 


2663 


2712 


2730 


2845 


2846 


3005 


3006 




3230 


3231 


3257 


3258 


3272 


3295 


3304 


3329 




3518 


3531 


3578 


3599 


3657 


3734 


3779 


3783 




3890 


3894 


3895 


3911 


3912 


3918 


3922 


3928 




3951 


3952 


3953 


3954 


3955 


3956 


3959 


3969 




3999 


4004 


4022 


4083 


4340 








IFF 


88 


252 


253 


254 


265 


266 


267 


272 




476 


1337 


1344 


1397 


1404 


2464 


2465 


2481 




2846 


3005 


3006 


3141 


3201 


3215 


3224 


3231 




3358 


3367 


3422 


3484 


3499 


3519 


3532 


3579 




3881 


3882 


3891 


3895 


3912 


3923 


3929 


3960 


IFT 


3855 


3860 














IFTF 


3800 


3853 


3856 












IIF 


1 1 


16 


21 


22 


474 


2462 


2479 


2844 




3647 


3648 


3649 


3650 


3651 


3652 


3653 


3654 




3919 


3920 


3944 


3945 


3946 


3947 


3949 


3951 


IRP 


240 


3750 


3770 


3963 


3969 


3982 


3983 




LIST 


3 


194 


212 


240 


564 


653 


685 


754 




1124 


1133 


1167 


1204 


1228 


1443 


1470 


1502 




1747 


1795 


1858 


1895 


1924 


1948 


1994 


2029 




2667 


3881 


3936 


3944 


3945 


3946 


3947 


3948 




3956 


3957 














MACRO 


246 


248 


3936 












MCALL 


5 


6 


7 


194 










NLIST 


2 


194 


212 


240 


564 


653 


685 


754 




U24 


1133 


1167 


1204 


1228 


1443 


1470 


1502 




1747 


1795 


1858 


1895 


1924 


1948 


1994 


2029 




2667 


3881 


3936 


3944 


3945 


3946 


3947 


3948 




3956 


3957 














PAGE 


43 


83 


2507 












REPT 


212 


565 


649 


686 


750 


928 


953 


982 




1205 


1224 


1444 


1466 


1503 


1528 


1560 


1581 




1891 


1925 


1944 


1995 


2025 


2208 


2226 


2284 


SBTTL 


84 


249 


269 


295 


346 


398 


420 


533 




1717 


1798 


1805 


1817 


1897 


2032 


2085 


2168 




2507 


2582 


2699 


2746 


2885 


3016 


3156 


3265 




3920 


3936 


3957 


4002 


4020 


4112 






TITLE 


11 
















WORD 


211 


214 


215 


216 


217 


234 


377 


378 




3781 


3992 


3994 


4019 


4056 





















SEC 


3793 


3810 


3864 


3870 


3893 


3898 


3931 


1262 


1288 


1289 


1342 


1343 


1402 


1403 


1292 


1339 


1346 


1399 


1406 


2469 


2486 


3035 


3173 


3604 


3726 


3760 


3776 


3832 


2505 


2575 


2632 


2641 


2696 


2710 




2913 


2999 


3013 


3057 


3106 


3133 


31 ?5 


3436 


3449 


3476 


3505 


3510 


3514 


3516 


4018 


4060 


4104 


4111 








3954 


3955 


3956 










16 41 


184 2 


1 97 1 






2586 




2932 


2936 


2944 


2960 


2983 


3023 


30bi 


3444 


3464 


3486 


3501 


3536 


3547 


3601 


2388 


2493 


2629 


2758 


3037 


3076 


3117 


3 8 6 8 














3914 


3916 


3999 


4115 


4119 


4128 


4133 


4166 


4173 


4176 


4179 


41H2 


4185 


4ia8 


4224 


4227 


4230 


4233 


4238 


4240 


4244 


4272 


4277 


4285 


4293 


4302 


4313 


4332 


524 


525 


2464 


2465 


2481 


2482 


2537 


3201 


3214 


3215 


3223 


3224 


3230 


3231 


3729 


3730 


3909 


3910 


3918 


3919 




265 


2b6 


267 


272 


273 


274 


293 


568 


652 


689 


753 


931 


956 


9^5 


1227 


1338 


1345 


1398 




144? 




1751 


1794 


1862 


1894 


1928 


1947 


1998 


2466 


2482 


2483 


2510 


2511 


2515 


2516 


3141 


3201 


3202 


3215 


3216 


3224 


3225 


3338 


3349 


3358 


3367 


3422 


3484 


3499 


37B5 


3813 


3849 


3853 


3881 


3882 


3889 


3944 


3945 


3946 


3947 


3948 


3949 


3950 


3970 


3976 


3982 


398 3 


3993 


3995 




145 


146 


147 


148 


149 


150 


151 


178 


179 












264 


265 


266 


271 


272 


273 


2^2 


565 


649 


686 


750 


928 


953 


982 


1224 


1337 


1344 


1397 


1404 


1444 


146b 
















1748 


1791 


1859 


1891 


1925 


1944 


1995 


2465 


2481 


2482 


2509 


2510 


2514 


2515 


3140 


3200 


3201 


3214 


3215 


3223 


3224 


3337 


3346 


3357 


3366 


3421 


3483 


34^6 


3784 


3785 


3813 


3852 


3853 


3881 


3889 


3932 


3936 


3945 


3946 


3947 


3948 


3949 


3970 


3975 


3982 


3983 


3991 


3993 


3995 


27 3 


274 


293 


294 


295 


38b 


397 


2482 


2510 


2511 


2515 


2516 


27 13 


2731 


3258 


3273 


3296 


3305 


3330 


3338 


3349 


3658 


3735 


3780 


3785 


3853 


3855 


38b0 


3976 


3993 


4005 


4023 


4084 


4341 




3004 


3199 


3213 


3222 


3229 


3256 


3646 


3655 


3780 


3781 


3803 


3904 


3912 


3918 


3952 


3953 


3954 


3955 


3956 






927 


957 


981 


1015 


1041 


1064 


1085 


1532 


1559 


1585 


1649 


1672 


1683 


1706 


2207 


2230 


2283 


2304 


2347 


2375 


2648 


3949 


3950 


3951 


3952 


3953 


3954 


3955 


927 


957 


981 


1015 


1041 


1064 


1085 


1532 


1559 


1585 


1649 


1672 


1683 


1706 


2207 


2230 


2283 


2304 


2347 


2375 


2648 


3949 


3950 


3951 


3952 


3953 


3954 


3955 


1011 


1042 


1060 


1086 


1120 


1134 


1163 


1650 


1668 


1684 


1702 


1748 


1791 


1859 


2300 


2348 


2371 


2649 


2663 






904 


1066 


1304 


1362 


1422 


1608 


1709 


2273 


2311 


2380 


2402 


2417 


2431 


2439 


3408 


3451 


3543 


3576 


3655 


3732 


3777 


1178 


3090 


3643 


3646 


3647 


3731 


3780 
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